ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_quadPack.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
138
139!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140
142
143 use pm_kind, only: SK, IK, LK, RKH, RKB
144 use pm_mathConst, only: ninf, ninf_type
145 use pm_mathConst, only: pinf, pinf_type
146
147 implicit none
148
149 character(*, SK), parameter :: MODULE_NAME = "@pm_quadPack"
150
151!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152
194 real(RKH) :: cs
195 end type
196
237 interface wcauchy_type
238
239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240
241#if RK5_ENABLED
242 PURE elemental module function constructWcauchy_RK5(cs) result(wcauchy)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK5
245#endif
246 use pm_kind, only: RKC => RK5
247 real(RKC) , intent(in) :: cs
248 type(wcauchy_type) :: wcauchy
249 end function
250#endif
251
252#if RK4_ENABLED
253 PURE elemental module function constructWcauchy_RK4(cs) result(wcauchy)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK4
256#endif
257 use pm_kind, only: RKC => RK4
258 real(RKC) , intent(in) :: cs
259 type(wcauchy_type) :: wcauchy
260 end function
261#endif
262
263#if RK3_ENABLED
264 PURE elemental module function constructWcauchy_RK3(cs) result(wcauchy)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK3
267#endif
268 use pm_kind, only: RKC => RK3
269 real(RKC) , intent(in) :: cs
270 type(wcauchy_type) :: wcauchy
271 end function
272#endif
273
274#if RK2_ENABLED
275 PURE elemental module function constructWcauchy_RK2(cs) result(wcauchy)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK2
278#endif
279 use pm_kind, only: RKC => RK2
280 real(RKC) , intent(in) :: cs
281 type(wcauchy_type) :: wcauchy
282 end function
283#endif
284
285#if RK1_ENABLED
286 PURE elemental module function constructWcauchy_RK1(cs) result(wcauchy)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK1
289#endif
290 use pm_kind, only: RKC => RK1
291 real(RKC) , intent(in) :: cs
292 type(wcauchy_type) :: wcauchy
293 end function
294#endif
295
296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297
298 end interface
299
300!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301
345 type :: wsin_type
346 real(RKH) :: omega
347 end type
348
389 interface wsin_type
390
391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392
393#if RK5_ENABLED
394 PURE elemental module function constructWsin_RK5(omega) result(wsin)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK5
397#endif
398 use pm_kind, only: RKC => RK5
399 real(RKC) , intent(in) :: omega
400 type(wsin_type) :: wsin
401 end function
402#endif
403
404#if RK4_ENABLED
405 PURE elemental module function constructWsin_RK4(omega) result(wsin)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK4
408#endif
409 use pm_kind, only: RKC => RK4
410 real(RKC) , intent(in) :: omega
411 type(wsin_type) :: wsin
412 end function
413#endif
414
415#if RK3_ENABLED
416 PURE elemental module function constructWsin_RK3(omega) result(wsin)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK3
419#endif
420 use pm_kind, only: RKC => RK3
421 real(RKC) , intent(in) :: omega
422 type(wsin_type) :: wsin
423 end function
424#endif
425
426#if RK2_ENABLED
427 PURE elemental module function constructWsin_RK2(omega) result(wsin)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK2
430#endif
431 use pm_kind, only: RKC => RK2
432 real(RKC) , intent(in) :: omega
433 type(wsin_type) :: wsin
434 end function
435#endif
436
437#if RK1_ENABLED
438 PURE elemental module function constructWsin_RK1(omega) result(wsin)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK1
441#endif
442 use pm_kind, only: RKC => RK1
443 real(RKC) , intent(in) :: omega
444 type(wsin_type) :: wsin
445 end function
446#endif
447
448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449
450 end interface
451
452!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453
497 type :: wcos_type
498 real(RKH) :: omega
499 end type
500
541 interface wcos_type
542
543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544
545#if RK5_ENABLED
546 PURE elemental module function constructWcos_RK5(omega) result(wcos)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK5
549#endif
550 use pm_kind, only: RKC => RK5
551 real(RKC) , intent(in) :: omega
552 type(wcos_type) :: wcos
553 end function
554#endif
555
556#if RK4_ENABLED
557 PURE elemental module function constructWcos_RK4(omega) result(wcos)
558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
559 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK4
560#endif
561 use pm_kind, only: RKC => RK4
562 real(RKC) , intent(in) :: omega
563 type(wcos_type) :: wcos
564 end function
565#endif
566
567#if RK3_ENABLED
568 PURE elemental module function constructWcos_RK3(omega) result(wcos)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK3
571#endif
572 use pm_kind, only: RKC => RK3
573 real(RKC) , intent(in) :: omega
574 type(wcos_type) :: wcos
575 end function
576#endif
577
578#if RK2_ENABLED
579 PURE elemental module function constructWcos_RK2(omega) result(wcos)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK2
582#endif
583 use pm_kind, only: RKC => RK2
584 real(RKC) , intent(in) :: omega
585 type(wcos_type) :: wcos
586 end function
587#endif
588
589#if RK1_ENABLED
590 PURE elemental module function constructWcos_RK1(omega) result(wcos)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK1
593#endif
594 use pm_kind, only: RKC => RK1
595 real(RKC) , intent(in) :: omega
596 type(wcos_type) :: wcos
597 end function
598#endif
599
600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601
602 end interface
603
604!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605
606 ! \cond excluded
646 type :: GK15_type
647 end type
648 ! \endcond excluded
649
676 type(GK15_type) , parameter :: GK15 = GK15_type()
677
678 ! \cond excluded
698 real(RKB) , parameter :: nodeG7(4) = &
699 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
700 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
701 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
702 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB ]
703
723 real(RKB) , parameter :: weightG7(4) = &
724 [ 4.1795918367346938775510204081632653061224489795918367346938775510204081632653061224489795918367346938775510204081633e-01_RKB &
725 , 3.8183005050511894495036977548897513387836508353386273475108345103070554643412970834868465934404480145031467176458536e-01_RKB &
726 , 2.7970539148927666790146777142377958248692506522659876453701403269361881043056267681324094290119761876632337521337205e-01_RKB &
727 , 1.2948496616886969327061143267908201832858740225994666397720863872465523497204230871562541816292084508948440200163443e-01_RKB ]
728
748 real(RKB) , parameter :: nodeK15(8) = &
749 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
750 , 2.0778495500789846760068940377324491347978440714517064971384573461986693844943520226910343227183698530560857645062738e-01_RKB &
751 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
752 , 5.8608723546769113029414483825872959843678075060436095130499289319880373607444407464511674498935942098956811555121368e-01_RKB &
753 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
754 , 8.6486442335976907278971278864092620121097230707408814860145771276706770813259572103585847859604590541475281326027862e-01_RKB &
755 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB &
756 , 9.9145537112081263920685469752632851664204433837033470129108741357244173934653407235924503509626841760744349505339308e-01_RKB ]
757
777 real(RKB) , parameter :: weightK15(8) = &
778 [ 2.0948214108472782801299917489171426369776208022370431671299800656137515132325648616816908211675949102392971459688215e-01_RKB &
779 , 2.0443294007529889241416199923464908471651760418071835742447095312045467698546598879348374292009347554167803659293064e-01_RKB &
780 , 1.9035057806478540991325640242101368282607807545535835588544088036744058072410212679605964605106377593834568683551139e-01_RKB &
781 , 1.6900472663926790282658342659855028410624490030294424149734006755695680921619029112936702403855359908156070095656537e-01_RKB &
782 , 1.4065325971552591874518959051023792039988975724799857556174546893312708093090950408097379122415555910759700350860143e-01_RKB &
783 , 1.0479001032225018383987632254151801744375665421383061189339065133963746321576289524167571627509311333949422518201492e-01_RKB &
784 , 6.3092092629978553290700663189204286665071157211550707113605545146983997477964874928199170264504441995865872491871943e-02_RKB &
785 , 2.2935322010529224963732008058969591993560811275746992267507430254711815787976075946156368168156289483493617134063245e-02_RKB ]
786 ! \endcond excluded
787
788!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789
790 ! \cond excluded
830 type :: GK21_type
831 end type
832 ! \endcond excluded
833
861 type(GK21_type) , parameter :: GK21 = GK21_type()
862
863 ! \cond excluded
883 real(RKB) , parameter :: nodeG10(5) = &
884 [ 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
885 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
886 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
887 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
888 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB ]
889
909 real(RKB) , parameter :: weightG10(5) = &
910 [ 2.9552422471475287017389299465133832942104671702685360135430802975599593821715232927035659579375421672271716440125256e-01_RKB &
911 , 2.6926671930999635509122692156946935285975993846088379580056327624215343231917927676422663670925276075559581145036870e-01_RKB &
912 , 2.1908636251598204399553493422816319245877187052267708988095654363519991065295128124268399317720219278659121687281289e-01_RKB &
913 , 1.4945134915058059314577633965769733240255663966942736783547726875323865472663001094594726463473195191400575256104544e-01_RKB &
914 , 6.6671344308688137593568809893331792857864834320158145128694881613412064084087101776785509685058877821090054714520419e-02_RKB ]
915
935 real(RKB) , parameter :: nodeK21(11) = &
936 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
937 , 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
938 , 2.9439286270146019813112660310386556616268662515695791864888229172724611166332737888445523178268237359119185139299872e-01_RKB &
939 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
940 , 5.6275713466860468333900009927269414084301388194196695886034621458779266353216327549712087854169992422106448211158815e-01_RKB &
941 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
942 , 7.8081772658641689706371757834504237716340752029815717974694859999505607982761420654526977234238996241110129779403362e-01_RKB &
943 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
944 , 9.3015749135570822600120718005950834622516790998193924230349406866828415983091673055011194572851007884702013619684320e-01_RKB &
945 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB &
946 , 9.9565716302580808073552728068900284792126058721947892436337916111757023046774867357152325996912076724298149077812671e-01_RKB ]
947
967 real(RKB) , parameter :: weightK21(11) = &
968 [ 1.4944555400291690566493646838982120374523631668747280383560851873698964478511841925721030705689540264726493367634340e-01_RKB &
969 , 1.4773910490133849137484151597206804552373162548520660451819195439885993016735696405732703959182882254268727823258502e-01_RKB &
970 , 1.4277593857706008079709427313871706088597905653190555560741004743970770449909340027811131706283756428281146832304737e-01_RKB &
971 , 1.3470921731147332592805400177170683276099191300855971406636668491320291400121282036676953159488271772384389604997640e-01_RKB &
972 , 1.2349197626206585107795810983107415951230034952864832764467994120974054238975454689681538622363738230836484113389878e-01_RKB &
973 , 1.0938715880229764189921059032580496027181329983434522007819675829826550372891432168683899432674553842507906611591517e-01_RKB &
974 , 9.3125454583697605535065465083366344390018828880760031970085038760177735672200775237414123061615827474831165614953012e-02_RKB &
975 , 7.5039674810919952767043140916190009395219382000910088173697048048430404342858495178813808730646554086856929327903059e-02_RKB &
976 , 5.4755896574351996031381300244580176373721114058333557524432615804784098927818975325116301569003298086458722055550981e-02_RKB &
977 , 3.2558162307964727478818972459389760617388939845662609571537504232714121820165498692381607605384626494546068817765276e-02_RKB &
978 , 1.1694638867371874278064396062192048396217332481931888927598147525622222058064992651806736704969967250888097490233242e-02_RKB ]
979
980!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
981
982 ! \cond excluded
1023 end type
1024 ! \endcond excluded
1025
1053 type(GK31_type) , parameter :: GK31 = GK31_type()
1054
1074 real(RKB) , parameter :: nodeG15(8) = &
1075 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1076 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1077 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1078 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1079 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1080 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1081 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1082 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB ]
1083
1103 real(RKB) , parameter :: weightG15(8) = &
1104 [ 2.0257824192556127288062019996751931483866215800947735679670411605143539875474607409339344071278803213535148267082999e-01_RKB &
1105 , 1.9843148532711157645611832644383932481869255995754199348473792792912479753343426813331499916481782320766020854889310e-01_RKB &
1106 , 1.8616100001556221102680056186642282450622601227792840281549572731001325550269916061894976888609932360539977709001384e-01_RKB &
1107 , 1.6626920581699393355320086048120881113090018009841290732186519056355356321227851771070517429241553621484461540657185e-01_RKB &
1108 , 1.3957067792615431444780479451102832252085027531551124320239112863108844454190781168076825736357133363814908889327664e-01_RKB &
1109 , 1.0715922046717193501186954668586930341554371575810198068702238912187799485231579972568585713760862404439808767837506e-01_RKB &
1110 , 7.0366047488108124709267416450667338466708032754330719825907292914387055512874237044840452066693939219355489858595041e-02_RKB &
1111 , 3.0753241996117268354628393577204417721748144833434074264228285504237189467117168039038770732399404002516991188859473e-02_RKB ]
1112
1132 real(RKB) , parameter :: nodeK31(16) = &
1133 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1134 , 1.0114206691871749902707423144739233878745105740164180495800189504151097862454083050931321451540380998341273193681967e-01_RKB &
1135 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1136 , 2.9918000715316881216678002426638896266160338274382080184125545738918081102513884467602322020157243563662094470221235e-01_RKB &
1137 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1138 , 4.8508186364023968069365574023235061286633893089407312129367943604080239955167155974371848690848595275551258416303565e-01_RKB &
1139 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1140 , 6.5099674129741697053373589531327469254694822609259966708966160576093305841043840794460394747228060367236079289132544e-01_RKB &
1141 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1142 , 7.9041850144246593296764929481794734686214051995697617332365280643308302974631807059994738664225445530963711137343440e-01_RKB &
1143 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1144 , 8.9726453234408190088250965645449588283177871149442786763972687601078537721473771221195399661919716123038835639691946e-01_RKB &
1145 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1146 , 9.6773907567913913425734797878433722528335733730013163797468062226335804249452174804319385048203118506304424717089291e-01_RKB &
1147 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB &
1148 , 9.9800229869339706028517284015227120907340644231555723034839427970683348682837134566648979907760125278631896777136104e-01_RKB ]
1149
1169 real(RKB) , parameter :: weightK31(16) = &
1170 [ 1.0133000701479154901737479276749254677092627259659629246734858372174107615774696665932418050683956749891773195816338e-01_RKB &
1171 , 1.0076984552387559504494666261756972191634838013536373069278929029488122760822761077475060185965408326901925180106227e-01_RKB &
1172 , 9.9173598721791959332393173484603131059567260816713281734860095693651563064308745717056680128223790739026832596087552e-02_RKB &
1173 , 9.6642726983623678505179907627589335136656568630495198973407668882934392359962841826511402504664592185391687490319950e-02_RKB &
1174 , 9.3126598170825321225486872747345718561927881321317330560285879189052002874531855060114908990458716740695847509343865e-02_RKB &
1175 , 8.8564443056211770647275443693774303212266732690655967817996052574877144544749814260718837576325109922207832119243346e-02_RKB &
1176 , 8.3080502823133021038289247286103789601554188253368717607281604875233630643885056057630789228337088859687986285569521e-02_RKB &
1177 , 7.6849680757720378894432777482659006722109101167947000584089097112470821092034084418224731527690291913686588446455555e-02_RKB &
1178 , 6.9854121318728258709520077099147475786045435140671549698798093177992675624987998849748628778570667518643649536771245e-02_RKB &
1179 , 6.2009567800670640285139230960802932190400004210329723569147829395618376206272317333030584268303808639229575334680414e-02_RKB &
1180 , 5.3481524690928087265343147239430296771554760947116739813222888752727413616259625439714812475198987513183153639571249e-02_RKB &
1181 , 4.4589751324764876608227299373279690223256649667921096570980823211805450700059906366455036418897149593261561551176267e-02_RKB &
1182 , 3.5346360791375846222037948478360048122630678992420820868148023340902501837247680978434662724296810081131106317333086e-02_RKB &
1183 , 2.5460847326715320186874001019653359397271745046864640508377984982400903447009185267605205778819712848080691366407461e-02_RKB &
1184 , 1.5007947329316122538374763075807268094639436437387634979291759700896494746154334398961710227490402528151677469993935e-02_RKB &
1185 , 5.3774798729233489877920514301276498183080402431284197876486169536848635554354599213793172596490038991436925569025913e-03_RKB ]
1186 ! \endcond excluded
1187
1188!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1189
1190 ! \cond excluded
1231 end type
1232 ! \endcond excluded
1233
1261 type(GK41_type) , parameter :: GK41 = GK41_type()
1262
1263 ! \cond excluded
1283 real(RKB) , parameter :: nodeG20(10) = &
1284 [ 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1285 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1286 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1287 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1288 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1289 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1290 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1291 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1292 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1293 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB ]
1294
1314 real(RKB) , parameter :: weightG20(10) = &
1315 [ 1.5275338713072585069808433195509759349194864511237859727470104981759745316273778153557248783650390593544001842813788e-01_RKB &
1316 , 1.4917298647260374678782873700196943669267990408136831649621121780984442259558678069396132603521048105170913854567338e-01_RKB &
1317 , 1.4209610931838205132929832506716493303451541339202030333736708298382808749793436761694922428320058260133068573666201e-01_RKB &
1318 , 1.3168863844917662689849449974816313491611051114698352699643649370885435642948093314355797518397262924510598005463625e-01_RKB &
1319 , 1.1819453196151841731237737771138228700504121954896877544688995202017474835051151630572868782581901744606267543092317e-01_RKB &
1320 , 1.0193011981724043503675013548034987616669165602339255626197161619685232202539434647534931576947985821375859035525483e-01_RKB &
1321 , 8.3276741576704748724758143222046206100177828583163290744882060785693082894079419471375190843790839349096116111932764e-02_RKB &
1322 , 6.2672048334109063569506535187041606351601076578436364099584345437974811033665678644563766056832203512603253399592073e-02_RKB &
1323 , 4.0601429800386941331039952274932109879090639989951536817606854561832296750987328295538920623044384976189825709675075e-02_RKB &
1324 , 1.7614007139152118311861962351852816362143105543336732524349326677348419259621847817403105542146097668703716227512570e-02_RKB ]
1325
1345 real(RKB) , parameter :: nodeK41(21) = &
1346 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1347 , 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1348 , 1.5260546524092267550522024102267752791167622481841730660174156703809133685751696356987995886397049724808931527012542e-01_RKB &
1349 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1350 , 3.0162786811491300432055535685859226061539650501373092456926374427956957435978384116066498234762220215751079886015902e-01_RKB &
1351 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1352 , 4.4359317523872510319999221349264010784010101082300309613315028346299543059315258601993479156987847429893626854030516e-01_RKB &
1353 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1354 , 5.7514044681971031534294603658642513281381264014771682537415885495717468074720062012357788489049470208285175093670561e-01_RKB &
1355 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1356 , 6.9323765633475138480549071184593153338642585141021417904687378454301191710739219011546672416325022748282227809465165e-01_RKB &
1357 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1358 , 7.9504142883755119835063883327278794295938959911578029703855163894322697871710382866701777890251824617748545658564370e-01_RKB &
1359 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1360 , 8.7827681125228197607744299511307846671124526828251164853898086998248145904743220740840261624245683876748360309079747e-01_RKB &
1361 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1362 , 9.4082263383175475351998272221244338027429557377965291059536839973186796006557571220888218676776618448841584569497535e-01_RKB &
1363 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1364 , 9.8150787745025025919334299472021694456725093981023759869077533318793098857465723460898060491887511355706497739384103e-01_RKB &
1365 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB &
1366 , 9.9885903158827766383831557654586300999957020432629666866666860339324411793311982967839129772854179884971700274369367e-01_RKB ]
1367
1387 real(RKB) , parameter :: weightK41(21) = &
1388 [ 7.6600711917999656445049901530101740827932500628670118055485349620314721456712029449597396569857880493210849110825276e-02_RKB &
1389 , 7.6377867672080736705502835038061001800801036764945996714946431116936745542061941050008345047482501253320401746334511e-02_RKB &
1390 , 7.5704497684556674659542775376616558263363155900414326194855223272348838596099414841886740468379707283366777797425290e-02_RKB &
1391 , 7.4582875400499188986581418362487528616116493572092273080047040726969899567887364227664202642942357104526915332274625e-02_RKB &
1392 , 7.3030690332786667495189417658913112760626845234552742380174250771849743831660040966804802312464527721645765620253776e-02_RKB &
1393 , 7.1054423553444068305790361723210167412912159322210143921628270586407381879789525901086146473278095159807542174985045e-02_RKB &
1394 , 6.8648672928521619345623411885367801715489704958239860400434264173923806029589970941711224257967651039544669425313433e-02_RKB &
1395 , 6.5834597133618422111563556969397943147223506343381443709751749639944420314384296347503523810096842402960802728781816e-02_RKB &
1396 , 6.2653237554781168025870122174254980585819744698897886186553324157100424088919284503451596742588386343548162830898103e-02_RKB &
1397 , 5.9111400880639572374967220648594217136419365977042191748388047204015262840407696611508732839851952697839735487615776e-02_RKB &
1398 , 5.5195105348285994744832372419777329194753456228153116909812131213177827707884692917845453999535518818940813085110223e-02_RKB &
1399 , 5.0944573923728691932707670050344948664836365809262579747517140086119113476866735641054822574173198900379392130050979e-02_RKB &
1400 , 4.6434821867497674720231880926107516842127071007077929289994127933243222585938804392953931185146446072587020288747981e-02_RKB &
1401 , 4.1668873327973686263788305936894738043960843153010324860966353235271889596379726462208702081068715463576895020003842e-02_RKB &
1402 , 3.6600169758200798030557240707211008487453496747498001651070009441973280061489266074044986901436324295513243878212345e-02_RKB &
1403 , 3.1287306777032798958543119323800737887769280362813337359554598005322423266047996771926031069705049476071896145456496e-02_RKB &
1404 , 2.5882133604951158834505067096153142999479118048674944526997797755374306421629440393392427198869345793286369198147609e-02_RKB &
1405 , 2.0388373461266523598010231432754705122838627940185929365371868214433006532030353671253640300679157504987977281782909e-02_RKB &
1406 , 1.4626169256971252983787960308868356163881050162249770342103474631076960029748751959380482484308382288261238476948520e-02_RKB &
1407 , 8.6002698556429421986617879501023472521289227667077976622450602031426535362696437838448828009554532025301579670206091e-03_RKB &
1408 , 3.0735837185205315012182932460309874880335046882543449198461628212114333665590378156706265241414469306987988292234740e-03_RKB ]
1409 ! \endcond excluded
1410
1411!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1412
1413 ! \cond excluded
1454 end type
1455 ! \endcond excluded
1456
1484 type(GK51_type) , parameter :: GK51 = GK51_type()
1485
1486 ! \cond excluded
1506 real(RKB) , parameter :: nodeG25(13) = &
1507 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1508 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1509 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1510 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1511 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1512 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1513 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1514 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1515 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1516 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1517 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1518 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1519 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB ]
1520
1540 real(RKB) , parameter :: weightG25(13) = &
1541 [ 1.2317605372671545120390287307905014243823362751815166539135219731691200794926142128460112517504958377310054583945994e-01_RKB &
1542 , 1.2224244299031004168895951894585150583505924756305904090758008223203896721918010243033540891078906637115620156845304e-01_RKB &
1543 , 1.1945576353578477222817812651290104739017670141372642551958788133518409022018773502442869720975271321374348568426235e-01_RKB &
1544 , 1.1485825914571164833932554586955580864093619166818014959151499003148279667112542256534429898558156273250513652351744e-01_RKB &
1545 , 1.0851962447426365311609395705011661934007758798672201615649430734883929279360844269339768350029654172135832773427565e-01_RKB &
1546 , 1.0053594906705064420220689039268582698846609452814190706986904199941294815904602968195565620373258211755226681206658e-01_RKB &
1547 , 9.1028261982963649811497220702891653380992558959334310970483768967017384678410526902484398142953718885872521590850372e-02_RKB &
1548 , 8.0140700335001018013234959669111302290225732853675893716201462973612828934801289559457377714225318048243957479325813e-02_RKB &
1549 , 6.8038333812356917207187185656707968554709494354636562615071226410003654051711473106651522969481873733098761760660898e-02_RKB &
1550 , 5.4904695975835191925936891540473324160109985553111349048508498244593774678436511895711924079433444763756746828817613e-02_RKB &
1551 , 4.0939156701306312655623487711645953660845783364104346504698414899297432880215512770478971055110424130123527015425511e-02_RKB &
1552 , 2.6354986615032137261901815295299144935963281703322468755366165783870934008879499371529821528172928890350362464605104e-02_RKB &
1553 , 1.1393798501026287947902964113234773603320526292909696448948061116189891729766743355923677112945033505688431618009664e-02_RKB ]
1554
1574 real(RKB) , parameter :: nodeK51(26) = &
1575 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1576 , 6.1544483005685078886546392366796631281724348039823545274305431751687279361558658545141048781022691067898008423227288e-02_RKB &
1577 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1578 , 1.8371893942104889201596988875952841578528447834990555215034512653236752851109815617651867160645591242103823539931527e-01_RKB &
1579 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1580 , 3.0308953893110783016747890998033932920041937876655194685731578452573120372337209717349617882111662416355753711853559e-01_RKB &
1581 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1582 , 4.1788538219303774885181439459457248709336998140069528034955785068796932076966599548717224205109797297615032607570119e-01_RKB &
1583 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1584 , 5.2632528433471918259962377815801017803683252320191114313002425180471455022502695302371008520604638341970901082293650e-01_RKB &
1585 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1586 , 6.2681009901031741278812268162451788101954628995068510806525222008437260184181183053045236423845198752346149030569920e-01_RKB &
1587 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1588 , 7.1776640681308438818665407977329778059771167555515582423493486823991612820974965089522905953765860328116692570706602e-01_RKB &
1589 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1590 , 7.9787379799850005941041090499430656940863230009338267661706934499488650817643824077118950314443984031474353711531825e-01_RKB &
1591 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1592 , 8.6584706529327559544899696958834008820284409402823690293965213246691432948180280120756708738064779055576005302835351e-01_RKB &
1593 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1594 , 9.2074711528170156174634608454633063157457035996277199700642836501131385042631212407808952281702820179915510491592339e-01_RKB &
1595 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1596 , 9.6161498642584251241813003366016724169212642963709676666624520141292893281185666917636407790823210892689040877316178e-01_RKB &
1597 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1598 , 9.8803579453407724763733101457740622707248415209160748131449972199405186821347293686245404742032360498210710718706868e-01_RKB &
1599 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB &
1600 , 9.9926210499260983419345748654034059370452496042279618586228697762904524428167719073818746102238075978747461480736921e-01_RKB ]
1601
1621 real(RKB) , parameter :: weightK51(26) = &
1622 [ 6.1580818067832935078759824240064553190436936903140808056908996403358367244202623293256774502185186717703954810463664e-02_RKB &
1623 , 6.1471189871425316661544131965264177586537962876885022711111683500151700796198726558483367566537422877227096643444043e-02_RKB &
1624 , 6.1128509717053048305859030416292711922678552321960938357322028070390133769952032831204895569347757809858568165047769e-02_RKB &
1625 , 6.0539455376045862945360267517565427162312365710457079923487043144554747810689514408013582515489930908693681447570811e-02_RKB &
1626 , 5.9720340324174059979099291932561853835363045476189975483372207816149988460708299020779612375010639778624011960832019e-02_RKB &
1627 , 5.8689680022394207961974175856787764139795646254828315293243700305012569486054157617049685031506591863121580010947248e-02_RKB &
1628 , 5.7437116361567832853582693939506471994832856823896682976509412313367495727224381199978598247737089593472710899482737e-02_RKB &
1629 , 5.5950811220412317308240686382747346820271035112771802428932791066115158268338607019365831655460314732208940609352540e-02_RKB &
1630 , 5.4251129888545490144543370459875606826076838441263383072163293312936923476650934130242315028422047795830492882862973e-02_RKB &
1631 , 5.2362885806407475864366712137872714887351550723707596350905793656046659248541276597504566497990926306481919129870507e-02_RKB &
1632 , 5.0277679080715671963325259433440084440587630604775975142050968279743014641141402310302584542633557037153607386127936e-02_RKB &
1633 , 4.7982537138836713906392255756914754983592207423271169651235865196757913880334117810235517477328110033499422471098658e-02_RKB &
1634 , 4.5502913049921788909870584752660393043707768935695327316724254392794299567957035458208970599641697203261236226745020e-02_RKB &
1635 , 4.2872845020170049476895792439495161101999504199883328877919242515738957655253932048951366960802592343905647433925806e-02_RKB &
1636 , 4.0083825504032382074839284467075646401410549266591308713115878386835777315058451955614116158949614066927183232852042e-02_RKB &
1637 , 3.7116271483415543560330625367619875995997802688047764805628702762773009669395760582294525748583875707140577080663373e-02_RKB &
1638 , 3.4002130274329337836748795229551203225670528250050443083264193121524339063344855010257660547708022429300203676502386e-02_RKB &
1639 , 3.0792300167387488891109020215228585600877162393292487644544830559965388047996492709248618249084851477787538356572832e-02_RKB &
1640 , 2.7475317587851737802948455517811078614796013288710603199613621069727810352835469926107822047433566792405123805901196e-02_RKB &
1641 , 2.4009945606953216220092489164881081392931528209659330290734972342536012282191913069778658241972047765300060007037359e-02_RKB &
1642 , 2.0435371145882835456568292235938973678758006097668937220074531550163622566841885855957623103354443247806459277197725e-02_RKB &
1643 , 1.6847817709128298231516667536336315840402654624706139411175769276842182270078960078544597372646532637619276509222462e-02_RKB &
1644 , 1.3236229195571674813656405846976238077578084997863654732213860488560614587634395544002156258192582265590155862296710e-02_RKB &
1645 , 9.4739733861741516072077105236553238716453268483726334971394029603529306140359023187904705754719643032594360138998941e-03_RKB &
1646 , 5.5619321353567137580402369010655220701769295496290984052961210793810038857581724171021610100708799763006942755331129e-03_RKB &
1647 , 1.9873838923303159265078518828434098894299804282505973837653346298985629336820118753523093675303476883723992297810124e-03_RKB ]
1648 ! \endcond excluded
1649
1650!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1651
1652 ! \cond excluded
1693 end type
1694 ! \endcond excluded
1695
1723 type(GK61_type) , parameter :: GK61 = GK61_type()
1724
1725 ! \cond excluded
1745 real(RKB) , parameter :: nodeG30(15) = &
1746 [ 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1747 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1748 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1749 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1750 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1751 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1752 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1753 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1754 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1755 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1756 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1757 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1758 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1759 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1760 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB ]
1761
1781 real(RKB) , parameter :: weightG30(15) = &
1782 [ 1.0285265289355884034128563670541504386837555706492822258631898667601623865660942939262884632188870916503815852709086e-01_RKB &
1783 , 1.0176238974840550459642895216855404463270628948712684086426094541964251360531767494547599781978391198881693385887696e-01_RKB &
1784 , 9.9593420586795267062780282103569476529869263666704277221365146183946660389908809018092299289324184705373523229592037e-02_RKB &
1785 , 9.6368737174644259639468626351809865096406461430160245912994275732837534742003123724951247818104195363343093583583429e-02_RKB &
1786 , 9.2122522237786128717632707087618767196913234418234107527675047001973047070094168298464052916811907158954949394100501e-02_RKB &
1787 , 8.6899787201082979802387530715125702576753328743545344012222129882153582254261494247955033509639105330215477601953921e-02_RKB &
1788 , 8.0755895229420215354694938460529730875892803708439299890258593706051180567026345604212402769217808080749416147400962e-02_RKB &
1789 , 7.3755974737705206268243850022190734153770526037049438941269182374599399314635211710401352716638183270192254236882630e-02_RKB &
1790 , 6.5974229882180495128128515115962361237442953656660378967031516042143672466094179365819913911598737439478205808271237e-02_RKB &
1791 , 5.7493156217619066481721689402056128797120670721763134548715799003232147409954376925211999650950125355559974348279846e-02_RKB &
1792 , 4.8402672830594052902938140422807517815271809197372736345191936791805425677102152797767439563562263454374645955072007e-02_RKB &
1793 , 3.8799192569627049596801936446347692033200976766395352107732789705946970952769793919055026279035105656340228558382274e-02_RKB &
1794 , 2.8784707883323369349719179611292043639588894546287496474180122608145988940013933101730206711484171554940392262251283e-02_RKB &
1795 , 1.8466468311090959142302131912047269096206533968181403371298365514585599521307973654080519029675417955638095832046164e-02_RKB &
1796 , 7.9681924961666056154658834746736224504806965871517212294851633569200384329013332941536616922861735209846506562158817e-03_RKB ]
1797
1798
1818 real(RKB) , parameter :: nodeK61(31) = &
1819 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1820 , 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1821 , 1.0280693796673703014709675131800059247190133296515840552101946914632788253917872738234797140786490207720254922664913e-01_RKB &
1822 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1823 , 2.0452511668230989143895767100202470952410426459556377447604465028350321894663245495592565235317147819577892124850607e-01_RKB &
1824 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1825 , 3.0407320227362507737267710719925655353115778980946272844421536998312150442387767304001423699909778588529370119457430e-01_RKB &
1826 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1827 , 4.0040125483039439253547621154266063361104593297078395983186610656429170689311759061175527015710247383961903284673474e-01_RKB &
1828 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1829 , 4.9248046786177857499369306120770879564426564096318697026073340982988422546396352776837047452262025983265531109327026e-01_RKB &
1830 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1831 , 5.7934523582636169175602493217254049590705158881215289208126016612312833567812241903809970751783808208940322061083509e-01_RKB &
1832 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1833 , 6.6006106412662696137005366814927075303835037480883390955067197339904937499734522076788020517029688190998858739703079e-01_RKB &
1834 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1835 , 7.3379006245322680472617113136952764566938172775468549208701399518300016463613325382024664531597318795933262446521430e-01_RKB &
1836 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1837 , 7.9972783582183908301366894232268324073569842937778450923647349548686662567326007229195202524185356472023967927713548e-01_RKB &
1838 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1839 , 8.5720523354606109895865851065894385682080017062359612850504551739119887225712932688031120704657195642614071367390794e-01_RKB &
1840 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1841 , 9.0557330769990779854652255892595831956897536366222841356404766397803760239449631913585074426842574155323901785046522e-01_RKB &
1842 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1843 , 9.4437444474855997941583132403743912158564371496498093181748940139520917000657342753448871376849848523800667868447591e-01_RKB &
1844 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1845 , 9.7311632250112626837469386842370688488763796428343933853755850185624118958166838288308561708261486365954975485787212e-01_RKB &
1846 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1847 , 9.9163099687040459485862836610948572485050033374616325510019923349807489603260796605556191495843575227494654783755353e-01_RKB &
1848 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB &
1849 , 9.9948441005049063757132589570581081946887394701850801923632642830748016674843587830656468823145435723317885056396548e-01_RKB ]
1850
1870 real(RKB) , parameter :: weightK61(31) = &
1871 [ 5.1494729429451567558340433647099307532736880396464168074637323362474083844397567724480716864880173808112573901197920e-02_RKB &
1872 , 5.1426128537459025933862879215781259829552034862395987263855824172761589259406892072066110681184224608133314131500422e-02_RKB &
1873 , 5.1221547849258772170656282604944208251146952425246327553509056805511015401279553971190412722969308620984161625812560e-02_RKB &
1874 , 5.0881795898749606492297473049804691853384914260919239920771942080972542646780575571132056254070929858650733836163479e-02_RKB &
1875 , 5.0405921402782346840893085653585028902197018251622233664243959211066713308635283713447747907973700791599900911248852e-02_RKB &
1876 , 4.9795683427074206357811569379942328539209602813696108951047392842948482646220377655098341924089250200477846596263918e-02_RKB &
1877 , 4.9055434555029778887528165367238173605887405295296569579490717901328215644590555247522873065246297467067324397612445e-02_RKB &
1878 , 4.8185861757087129140779492298304592605799236108429800057373350872433793583969368428942672063270298939865425225579922e-02_RKB &
1879 , 4.7185546569299153945261478181099486482884807300628457194141861551725533289490897029020276525603515502104799540544222e-02_RKB &
1880 , 4.6059238271006988116271735559373580594692875571824924004732379492293604006446052672252973438978639166425766841417488e-02_RKB &
1881 , 4.4814800133162663192355551616723243757431392796373009889680201194063503947907899189061064792111919040540351834527742e-02_RKB &
1882 , 4.3452539701356069316831728117073258074603308631703168064888805495738640839573863333942084117196541456054957383622173e-02_RKB &
1883 , 4.1969810215164246147147541285969757790088656718992374820388720323852655511200365790379948462006156953358103259681948e-02_RKB &
1884 , 4.0374538951535959111995279752468114216126062126030255633998289613810846761059740961836828802959573901107306640876603e-02_RKB &
1885 , 3.8678945624727592950348651532281050250923629821553846790376130679337402056620700554139109487533759557982632153728099e-02_RKB &
1886 , 3.6882364651821229223911065617135967736955164781030337670005198584196134970154169862584193360751243227989492571664973e-02_RKB &
1887 , 3.4979338028060024137499670731467875097226912794818719972208457232177786702008744219498470603846784465175225933802357e-02_RKB &
1888 , 3.2981447057483726031814191016853927510599291213858385714519347641452316582381008804994515341969205985818543200837577e-02_RKB &
1889 , 3.0907257562387762472884252943092272635270458523807153426840486964022086189874056947717446328187131273807982629114591e-02_RKB &
1890 , 2.8754048765041292843978785354334211144679160542074930035102280759132174815469834227854660515366003136772757344886331e-02_RKB &
1891 , 2.6509954882333101610601709335075414366517579522748565770867438338472138903658077617652522759934474895733739329287706e-02_RKB &
1892 , 2.4191162078080601365686370725232026760391377828182462432228943562944885267501070688006470962871743661192935455117297e-02_RKB &
1893 , 2.1828035821609192297167485738338993401507296056834912773630422358720439403382559079356058602393879803560534375378340e-02_RKB &
1894 , 1.9414141193942381173408951050128455851421014191431525770276066536497179079025540486072726114628763606440143557769099e-02_RKB &
1895 , 1.6920889189053272627572289420322092368566703783835191139883410840546679978551861043620089451681146020853650713611444e-02_RKB &
1896 , 1.4369729507045804812451432443580010195841899895001505873565899403000198662495821906144274682894222591414503342336172e-02_RKB &
1897 , 1.1823015253496341742232898853250592896264406250607818326302431548265365155855182739401700032519141448997853772603766e-02_RKB &
1898 , 9.2732796595177634284411468920243604212700249381931076964956469143626665557434385492325784596343112153704094886248672e-03_RKB &
1899 , 6.6307039159312921733198263697501681336283882177812585973955597357837568277731921327731815844512598157843672104469554e-03_RKB &
1900 , 3.8904611270998840512672018445155032785151429848864649214200101281144733676455451061226273655941038347210163533085954e-03_RKB &
1901 , 1.3890136986770076245515912267596996810488412919632724534411055332301367130989865366956251556423820479579333920310978e-03_RKB ]
1902 ! \endcond excluded
1903
1904!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1905
1970
1971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1972
1973#if RK5_ENABLED
1974 PURE module subroutine setNodeWeightGKFixed_RK5(nodeK, weightK, weightG)
1975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1976 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK5
1977#endif
1978 use pm_kind, only: RKC => RK5
1979 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
1980 end subroutine
1981#endif
1982
1983#if RK4_ENABLED
1984 PURE module subroutine setNodeWeightGKFixed_RK4(nodeK, weightK, weightG)
1985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1986 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK4
1987#endif
1988 use pm_kind, only: RKC => RK4
1989 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
1990 end subroutine
1991#endif
1992
1993#if RK3_ENABLED
1994 PURE module subroutine setNodeWeightGKFixed_RK3(nodeK, weightK, weightG)
1995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1996 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK3
1997#endif
1998 use pm_kind, only: RKC => RK3
1999 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2000 end subroutine
2001#endif
2002
2003#if RK2_ENABLED
2004 PURE module subroutine setNodeWeightGKFixed_RK2(nodeK, weightK, weightG)
2005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2006 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK2
2007#endif
2008 use pm_kind, only: RKC => RK2
2009 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2010 end subroutine
2011#endif
2012
2013#if RK1_ENABLED
2014 PURE module subroutine setNodeWeightGKFixed_RK1(nodeK, weightK, weightG)
2015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2016 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK1
2017#endif
2018 use pm_kind, only: RKC => RK1
2019 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2020 end subroutine
2021#endif
2022
2023 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2024
2025#if RK5_ENABLED
2026 PURE module subroutine setNodeWeightGKAlloc_RK5(order, nodeK, weightK, weightG)
2027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2028 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK5
2029#endif
2030 use pm_kind, only: RKC => RK5
2031 integer(IK) , intent(in) :: order
2032 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2033 end subroutine
2034#endif
2035
2036#if RK4_ENABLED
2037 PURE module subroutine setNodeWeightGKAlloc_RK4(order, nodeK, weightK, weightG)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK4
2040#endif
2041 use pm_kind, only: RKC => RK4
2042 integer(IK) , intent(in) :: order
2043 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2044 end subroutine
2045#endif
2046
2047#if RK3_ENABLED
2048 PURE module subroutine setNodeWeightGKAlloc_RK3(order, nodeK, weightK, weightG)
2049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2050 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK3
2051#endif
2052 use pm_kind, only: RKC => RK3
2053 integer(IK) , intent(in) :: order
2054 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2055 end subroutine
2056#endif
2057
2058#if RK2_ENABLED
2059 PURE module subroutine setNodeWeightGKAlloc_RK2(order, nodeK, weightK, weightG)
2060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2061 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK2
2062#endif
2063 use pm_kind, only: RKC => RK2
2064 integer(IK) , intent(in) :: order
2065 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2066 end subroutine
2067#endif
2068
2069#if RK1_ENABLED
2070 PURE module subroutine setNodeWeightGKAlloc_RK1(order, nodeK, weightK, weightG)
2071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2072 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK1
2073#endif
2074 use pm_kind, only: RKC => RK1
2075 integer(IK) , intent(in) :: order
2076 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2077 end subroutine
2078#endif
2079
2080 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2081
2082 end interface
2083
2084!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2085
2086 ! Naming convention: getQuadGKDFU, getQuadGKDPU, getQuadGKDNU, getQuadGKDBU
2087 ! G: Gauss rule,
2088 ! K: Kronrod rule,
2089 ! D: default method,
2090 ! F: finite integration limits,
2091 ! P: Positive integration limit,
2092 ! N: Negative integration limit,
2093 ! B: Both negative and positive integration limits,
2094
2202
2203 ! GK15
2204
2205 interface getQuadGK
2206
2207 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2208
2209#if RK5_ENABLED
2210 module function getQuadGK15_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2212 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK5
2213#endif
2214 use pm_kind, only: RKC => RK5
2215 procedure(real(RKC)) :: getFunc
2216 real(RKC) , intent(in) :: lb
2217 real(RKC) , intent(in) :: ub
2218 type(GK15_type) , intent(in) :: qrule
2219 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2220 real(RKC) :: quadGK
2221 end function
2222#endif
2223
2224#if RK4_ENABLED
2225 module function getQuadGK15_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2227 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK4
2228#endif
2229 use pm_kind, only: RKC => RK4
2230 procedure(real(RKC)) :: getFunc
2231 real(RKC) , intent(in) :: lb
2232 real(RKC) , intent(in) :: ub
2233 type(GK15_type) , intent(in) :: qrule
2234 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2235 real(RKC) :: quadGK
2236 end function
2237#endif
2238
2239#if RK3_ENABLED
2240 module function getQuadGK15_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2242 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK3
2243#endif
2244 use pm_kind, only: RKC => RK3
2245 procedure(real(RKC)) :: getFunc
2246 real(RKC) , intent(in) :: lb
2247 real(RKC) , intent(in) :: ub
2248 type(GK15_type) , intent(in) :: qrule
2249 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2250 real(RKC) :: quadGK
2251 end function
2252#endif
2253
2254#if RK2_ENABLED
2255 module function getQuadGK15_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2257 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK2
2258#endif
2259 use pm_kind, only: RKC => RK2
2260 procedure(real(RKC)) :: getFunc
2261 real(RKC) , intent(in) :: lb
2262 real(RKC) , intent(in) :: ub
2263 type(GK15_type) , intent(in) :: qrule
2264 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2265 real(RKC) :: quadGK
2266 end function
2267#endif
2268
2269#if RK1_ENABLED
2270 module function getQuadGK15_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2272 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK1
2273#endif
2274 use pm_kind, only: RKC => RK1
2275 procedure(real(RKC)) :: getFunc
2276 real(RKC) , intent(in) :: lb
2277 real(RKC) , intent(in) :: ub
2278 type(GK15_type) , intent(in) :: qrule
2279 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2280 real(RKC) :: quadGK
2281 end function
2282#endif
2283
2284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2285
2286#if RK5_ENABLED
2287 module function getQuadGK15_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2289 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK5
2290#endif
2291 use pm_kind, only: RKC => RK5
2292 procedure(real(RKC)) :: getFunc
2293 real(RKC) , intent(in) :: lb
2294 type(pinf_type) , intent(in) :: ub
2295 type(GK15_type) , intent(in) :: qrule
2296 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2297 real(RKC) :: quadGK
2298 end function
2299#endif
2300
2301#if RK4_ENABLED
2302 module function getQuadGK15_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2304 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK4
2305#endif
2306 use pm_kind, only: RKC => RK4
2307 procedure(real(RKC)) :: getFunc
2308 real(RKC) , intent(in) :: lb
2309 type(pinf_type) , intent(in) :: ub
2310 type(GK15_type) , intent(in) :: qrule
2311 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2312 real(RKC) :: quadGK
2313 end function
2314#endif
2315
2316#if RK3_ENABLED
2317 module function getQuadGK15_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2319 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK3
2320#endif
2321 use pm_kind, only: RKC => RK3
2322 procedure(real(RKC)) :: getFunc
2323 real(RKC) , intent(in) :: lb
2324 type(pinf_type) , intent(in) :: ub
2325 type(GK15_type) , intent(in) :: qrule
2326 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2327 real(RKC) :: quadGK
2328 end function
2329#endif
2330
2331#if RK2_ENABLED
2332 module function getQuadGK15_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2334 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK2
2335#endif
2336 use pm_kind, only: RKC => RK2
2337 procedure(real(RKC)) :: getFunc
2338 real(RKC) , intent(in) :: lb
2339 type(pinf_type) , intent(in) :: ub
2340 type(GK15_type) , intent(in) :: qrule
2341 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2342 real(RKC) :: quadGK
2343 end function
2344#endif
2345
2346#if RK1_ENABLED
2347 module function getQuadGK15_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2349 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK1
2350#endif
2351 use pm_kind, only: RKC => RK1
2352 procedure(real(RKC)) :: getFunc
2353 real(RKC) , intent(in) :: lb
2354 type(pinf_type) , intent(in) :: ub
2355 type(GK15_type) , intent(in) :: qrule
2356 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2357 real(RKC) :: quadGK
2358 end function
2359#endif
2360
2361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2362
2363#if RK5_ENABLED
2364 module function getQuadGK15_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2366 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK5
2367#endif
2368 use pm_kind, only: RKC => RK5
2369 procedure(real(RKC)) :: getFunc
2370 type(ninf_type) , intent(in) :: lb
2371 real(RKC) , intent(in) :: ub
2372 type(GK15_type) , intent(in) :: qrule
2373 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2374 real(RKC) :: quadGK
2375 end function
2376#endif
2377
2378#if RK4_ENABLED
2379 module function getQuadGK15_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2381 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK4
2382#endif
2383 use pm_kind, only: RKC => RK4
2384 procedure(real(RKC)) :: getFunc
2385 type(ninf_type) , intent(in) :: lb
2386 real(RKC) , intent(in) :: ub
2387 type(GK15_type) , intent(in) :: qrule
2388 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2389 real(RKC) :: quadGK
2390 end function
2391#endif
2392
2393#if RK3_ENABLED
2394 module function getQuadGK15_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2396 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK3
2397#endif
2398 use pm_kind, only: RKC => RK3
2399 procedure(real(RKC)) :: getFunc
2400 type(ninf_type) , intent(in) :: lb
2401 real(RKC) , intent(in) :: ub
2402 type(GK15_type) , intent(in) :: qrule
2403 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2404 real(RKC) :: quadGK
2405 end function
2406#endif
2407
2408#if RK2_ENABLED
2409 module function getQuadGK15_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2411 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK2
2412#endif
2413 use pm_kind, only: RKC => RK2
2414 procedure(real(RKC)) :: getFunc
2415 type(ninf_type) , intent(in) :: lb
2416 real(RKC) , intent(in) :: ub
2417 type(GK15_type) , intent(in) :: qrule
2418 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2419 real(RKC) :: quadGK
2420 end function
2421#endif
2422
2423#if RK1_ENABLED
2424 module function getQuadGK15_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2426 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK1
2427#endif
2428 use pm_kind, only: RKC => RK1
2429 procedure(real(RKC)) :: getFunc
2430 type(ninf_type) , intent(in) :: lb
2431 real(RKC) , intent(in) :: ub
2432 type(GK15_type) , intent(in) :: qrule
2433 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2434 real(RKC) :: quadGK
2435 end function
2436#endif
2437
2438 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2439
2440#if RK5_ENABLED
2441 module function getQuadGK15_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2443 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK5
2444#endif
2445 use pm_kind, only: RKC => RK5
2446 procedure(real(RKC)) :: getFunc
2447 type(ninf_type) , intent(in) :: lb
2448 type(pinf_type) , intent(in) :: ub
2449 type(GK15_type) , intent(in) :: qrule
2450 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2451 real(RKC) :: quadGK
2452 end function
2453#endif
2454
2455#if RK4_ENABLED
2456 module function getQuadGK15_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2458 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK4
2459#endif
2460 use pm_kind, only: RKC => RK4
2461 procedure(real(RKC)) :: getFunc
2462 type(ninf_type) , intent(in) :: lb
2463 type(pinf_type) , intent(in) :: ub
2464 type(GK15_type) , intent(in) :: qrule
2465 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2466 real(RKC) :: quadGK
2467 end function
2468#endif
2469
2470#if RK3_ENABLED
2471 module function getQuadGK15_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2473 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK3
2474#endif
2475 use pm_kind, only: RKC => RK3
2476 procedure(real(RKC)) :: getFunc
2477 type(ninf_type) , intent(in) :: lb
2478 type(pinf_type) , intent(in) :: ub
2479 type(GK15_type) , intent(in) :: qrule
2480 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2481 real(RKC) :: quadGK
2482 end function
2483#endif
2484
2485#if RK2_ENABLED
2486 module function getQuadGK15_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2488 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK2
2489#endif
2490 use pm_kind, only: RKC => RK2
2491 procedure(real(RKC)) :: getFunc
2492 type(ninf_type) , intent(in) :: lb
2493 type(pinf_type) , intent(in) :: ub
2494 type(GK15_type) , intent(in) :: qrule
2495 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2496 real(RKC) :: quadGK
2497 end function
2498#endif
2499
2500#if RK1_ENABLED
2501 module function getQuadGK15_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2503 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK1
2504#endif
2505 use pm_kind, only: RKC => RK1
2506 procedure(real(RKC)) :: getFunc
2507 type(ninf_type) , intent(in) :: lb
2508 type(pinf_type) , intent(in) :: ub
2509 type(GK15_type) , intent(in) :: qrule
2510 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2511 real(RKC) :: quadGK
2512 end function
2513#endif
2514
2515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2516
2517 end interface
2518
2519 ! GK21
2520
2521 interface getQuadGK
2522
2523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2524
2525#if RK5_ENABLED
2526 module function getQuadGK21_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2528 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK5
2529#endif
2530 use pm_kind, only: RKC => RK5
2531 procedure(real(RKC)) :: getFunc
2532 real(RKC) , intent(in) :: lb
2533 real(RKC) , intent(in) :: ub
2534 type(GK21_type) , intent(in) :: qrule
2535 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2536 real(RKC) :: quadGK
2537 end function
2538#endif
2539
2540#if RK4_ENABLED
2541 module function getQuadGK21_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2543 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK4
2544#endif
2545 use pm_kind, only: RKC => RK4
2546 procedure(real(RKC)) :: getFunc
2547 real(RKC) , intent(in) :: lb
2548 real(RKC) , intent(in) :: ub
2549 type(GK21_type) , intent(in) :: qrule
2550 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2551 real(RKC) :: quadGK
2552 end function
2553#endif
2554
2555#if RK3_ENABLED
2556 module function getQuadGK21_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2558 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK3
2559#endif
2560 use pm_kind, only: RKC => RK3
2561 procedure(real(RKC)) :: getFunc
2562 real(RKC) , intent(in) :: lb
2563 real(RKC) , intent(in) :: ub
2564 type(GK21_type) , intent(in) :: qrule
2565 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2566 real(RKC) :: quadGK
2567 end function
2568#endif
2569
2570#if RK2_ENABLED
2571 module function getQuadGK21_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2573 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK2
2574#endif
2575 use pm_kind, only: RKC => RK2
2576 procedure(real(RKC)) :: getFunc
2577 real(RKC) , intent(in) :: lb
2578 real(RKC) , intent(in) :: ub
2579 type(GK21_type) , intent(in) :: qrule
2580 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2581 real(RKC) :: quadGK
2582 end function
2583#endif
2584
2585#if RK1_ENABLED
2586 module function getQuadGK21_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2588 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK1
2589#endif
2590 use pm_kind, only: RKC => RK1
2591 procedure(real(RKC)) :: getFunc
2592 real(RKC) , intent(in) :: lb
2593 real(RKC) , intent(in) :: ub
2594 type(GK21_type) , intent(in) :: qrule
2595 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2596 real(RKC) :: quadGK
2597 end function
2598#endif
2599
2600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2601
2602#if RK5_ENABLED
2603 module function getQuadGK21_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2605 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK5
2606#endif
2607 use pm_kind, only: RKC => RK5
2608 procedure(real(RKC)) :: getFunc
2609 real(RKC) , intent(in) :: lb
2610 type(pinf_type) , intent(in) :: ub
2611 type(GK21_type) , intent(in) :: qrule
2612 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2613 real(RKC) :: quadGK
2614 end function
2615#endif
2616
2617#if RK4_ENABLED
2618 module function getQuadGK21_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2620 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK4
2621#endif
2622 use pm_kind, only: RKC => RK4
2623 procedure(real(RKC)) :: getFunc
2624 real(RKC) , intent(in) :: lb
2625 type(pinf_type) , intent(in) :: ub
2626 type(GK21_type) , intent(in) :: qrule
2627 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2628 real(RKC) :: quadGK
2629 end function
2630#endif
2631
2632#if RK3_ENABLED
2633 module function getQuadGK21_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2635 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK3
2636#endif
2637 use pm_kind, only: RKC => RK3
2638 procedure(real(RKC)) :: getFunc
2639 real(RKC) , intent(in) :: lb
2640 type(pinf_type) , intent(in) :: ub
2641 type(GK21_type) , intent(in) :: qrule
2642 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2643 real(RKC) :: quadGK
2644 end function
2645#endif
2646
2647#if RK2_ENABLED
2648 module function getQuadGK21_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2650 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK2
2651#endif
2652 use pm_kind, only: RKC => RK2
2653 procedure(real(RKC)) :: getFunc
2654 real(RKC) , intent(in) :: lb
2655 type(pinf_type) , intent(in) :: ub
2656 type(GK21_type) , intent(in) :: qrule
2657 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2658 real(RKC) :: quadGK
2659 end function
2660#endif
2661
2662#if RK1_ENABLED
2663 module function getQuadGK21_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2665 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK1
2666#endif
2667 use pm_kind, only: RKC => RK1
2668 procedure(real(RKC)) :: getFunc
2669 real(RKC) , intent(in) :: lb
2670 type(pinf_type) , intent(in) :: ub
2671 type(GK21_type) , intent(in) :: qrule
2672 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2673 real(RKC) :: quadGK
2674 end function
2675#endif
2676
2677 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2678
2679#if RK5_ENABLED
2680 module function getQuadGK21_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2682 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK5
2683#endif
2684 use pm_kind, only: RKC => RK5
2685 procedure(real(RKC)) :: getFunc
2686 type(ninf_type) , intent(in) :: lb
2687 real(RKC) , intent(in) :: ub
2688 type(GK21_type) , intent(in) :: qrule
2689 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2690 real(RKC) :: quadGK
2691 end function
2692#endif
2693
2694#if RK4_ENABLED
2695 module function getQuadGK21_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2697 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK4
2698#endif
2699 use pm_kind, only: RKC => RK4
2700 procedure(real(RKC)) :: getFunc
2701 type(ninf_type) , intent(in) :: lb
2702 real(RKC) , intent(in) :: ub
2703 type(GK21_type) , intent(in) :: qrule
2704 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2705 real(RKC) :: quadGK
2706 end function
2707#endif
2708
2709#if RK3_ENABLED
2710 module function getQuadGK21_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2712 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK3
2713#endif
2714 use pm_kind, only: RKC => RK3
2715 procedure(real(RKC)) :: getFunc
2716 type(ninf_type) , intent(in) :: lb
2717 real(RKC) , intent(in) :: ub
2718 type(GK21_type) , intent(in) :: qrule
2719 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2720 real(RKC) :: quadGK
2721 end function
2722#endif
2723
2724#if RK2_ENABLED
2725 module function getQuadGK21_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2727 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK2
2728#endif
2729 use pm_kind, only: RKC => RK2
2730 procedure(real(RKC)) :: getFunc
2731 type(ninf_type) , intent(in) :: lb
2732 real(RKC) , intent(in) :: ub
2733 type(GK21_type) , intent(in) :: qrule
2734 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2735 real(RKC) :: quadGK
2736 end function
2737#endif
2738
2739#if RK1_ENABLED
2740 module function getQuadGK21_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2742 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK1
2743#endif
2744 use pm_kind, only: RKC => RK1
2745 procedure(real(RKC)) :: getFunc
2746 type(ninf_type) , intent(in) :: lb
2747 real(RKC) , intent(in) :: ub
2748 type(GK21_type) , intent(in) :: qrule
2749 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2750 real(RKC) :: quadGK
2751 end function
2752#endif
2753
2754 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2755
2756#if RK5_ENABLED
2757 module function getQuadGK21_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2759 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK5
2760#endif
2761 use pm_kind, only: RKC => RK5
2762 procedure(real(RKC)) :: getFunc
2763 type(ninf_type) , intent(in) :: lb
2764 type(pinf_type) , intent(in) :: ub
2765 type(GK21_type) , intent(in) :: qrule
2766 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2767 real(RKC) :: quadGK
2768 end function
2769#endif
2770
2771#if RK4_ENABLED
2772 module function getQuadGK21_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2774 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK4
2775#endif
2776 use pm_kind, only: RKC => RK4
2777 procedure(real(RKC)) :: getFunc
2778 type(ninf_type) , intent(in) :: lb
2779 type(pinf_type) , intent(in) :: ub
2780 type(GK21_type) , intent(in) :: qrule
2781 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2782 real(RKC) :: quadGK
2783 end function
2784#endif
2785
2786#if RK3_ENABLED
2787 module function getQuadGK21_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2789 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK3
2790#endif
2791 use pm_kind, only: RKC => RK3
2792 procedure(real(RKC)) :: getFunc
2793 type(ninf_type) , intent(in) :: lb
2794 type(pinf_type) , intent(in) :: ub
2795 type(GK21_type) , intent(in) :: qrule
2796 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2797 real(RKC) :: quadGK
2798 end function
2799#endif
2800
2801#if RK2_ENABLED
2802 module function getQuadGK21_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2804 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK2
2805#endif
2806 use pm_kind, only: RKC => RK2
2807 procedure(real(RKC)) :: getFunc
2808 type(ninf_type) , intent(in) :: lb
2809 type(pinf_type) , intent(in) :: ub
2810 type(GK21_type) , intent(in) :: qrule
2811 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2812 real(RKC) :: quadGK
2813 end function
2814#endif
2815
2816#if RK1_ENABLED
2817 module function getQuadGK21_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2819 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK1
2820#endif
2821 use pm_kind, only: RKC => RK1
2822 procedure(real(RKC)) :: getFunc
2823 type(ninf_type) , intent(in) :: lb
2824 type(pinf_type) , intent(in) :: ub
2825 type(GK21_type) , intent(in) :: qrule
2826 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2827 real(RKC) :: quadGK
2828 end function
2829#endif
2830
2831 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2832
2833 end interface
2834
2835 ! GK31
2836
2837 interface getQuadGK
2838
2839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2840
2841#if RK5_ENABLED
2842 module function getQuadGK31_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2844 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK5
2845#endif
2846 use pm_kind, only: RKC => RK5
2847 procedure(real(RKC)) :: getFunc
2848 real(RKC) , intent(in) :: lb
2849 real(RKC) , intent(in) :: ub
2850 type(GK31_type) , intent(in) :: qrule
2851 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2852 real(RKC) :: quadGK
2853 end function
2854#endif
2855
2856#if RK4_ENABLED
2857 module function getQuadGK31_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2859 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK4
2860#endif
2861 use pm_kind, only: RKC => RK4
2862 procedure(real(RKC)) :: getFunc
2863 real(RKC) , intent(in) :: lb
2864 real(RKC) , intent(in) :: ub
2865 type(GK31_type) , intent(in) :: qrule
2866 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2867 real(RKC) :: quadGK
2868 end function
2869#endif
2870
2871#if RK3_ENABLED
2872 module function getQuadGK31_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2874 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK3
2875#endif
2876 use pm_kind, only: RKC => RK3
2877 procedure(real(RKC)) :: getFunc
2878 real(RKC) , intent(in) :: lb
2879 real(RKC) , intent(in) :: ub
2880 type(GK31_type) , intent(in) :: qrule
2881 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2882 real(RKC) :: quadGK
2883 end function
2884#endif
2885
2886#if RK2_ENABLED
2887 module function getQuadGK31_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2889 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK2
2890#endif
2891 use pm_kind, only: RKC => RK2
2892 procedure(real(RKC)) :: getFunc
2893 real(RKC) , intent(in) :: lb
2894 real(RKC) , intent(in) :: ub
2895 type(GK31_type) , intent(in) :: qrule
2896 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2897 real(RKC) :: quadGK
2898 end function
2899#endif
2900
2901#if RK1_ENABLED
2902 module function getQuadGK31_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2904 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK1
2905#endif
2906 use pm_kind, only: RKC => RK1
2907 procedure(real(RKC)) :: getFunc
2908 real(RKC) , intent(in) :: lb
2909 real(RKC) , intent(in) :: ub
2910 type(GK31_type) , intent(in) :: qrule
2911 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2912 real(RKC) :: quadGK
2913 end function
2914#endif
2915
2916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2917
2918#if RK5_ENABLED
2919 module function getQuadGK31_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2921 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK5
2922#endif
2923 use pm_kind, only: RKC => RK5
2924 procedure(real(RKC)) :: getFunc
2925 real(RKC) , intent(in) :: lb
2926 type(pinf_type) , intent(in) :: ub
2927 type(GK31_type) , intent(in) :: qrule
2928 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2929 real(RKC) :: quadGK
2930 end function
2931#endif
2932
2933#if RK4_ENABLED
2934 module function getQuadGK31_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2936 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK4
2937#endif
2938 use pm_kind, only: RKC => RK4
2939 procedure(real(RKC)) :: getFunc
2940 real(RKC) , intent(in) :: lb
2941 type(pinf_type) , intent(in) :: ub
2942 type(GK31_type) , intent(in) :: qrule
2943 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2944 real(RKC) :: quadGK
2945 end function
2946#endif
2947
2948#if RK3_ENABLED
2949 module function getQuadGK31_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2951 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK3
2952#endif
2953 use pm_kind, only: RKC => RK3
2954 procedure(real(RKC)) :: getFunc
2955 real(RKC) , intent(in) :: lb
2956 type(pinf_type) , intent(in) :: ub
2957 type(GK31_type) , intent(in) :: qrule
2958 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2959 real(RKC) :: quadGK
2960 end function
2961#endif
2962
2963#if RK2_ENABLED
2964 module function getQuadGK31_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2966 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK2
2967#endif
2968 use pm_kind, only: RKC => RK2
2969 procedure(real(RKC)) :: getFunc
2970 real(RKC) , intent(in) :: lb
2971 type(pinf_type) , intent(in) :: ub
2972 type(GK31_type) , intent(in) :: qrule
2973 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2974 real(RKC) :: quadGK
2975 end function
2976#endif
2977
2978#if RK1_ENABLED
2979 module function getQuadGK31_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2981 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK1
2982#endif
2983 use pm_kind, only: RKC => RK1
2984 procedure(real(RKC)) :: getFunc
2985 real(RKC) , intent(in) :: lb
2986 type(pinf_type) , intent(in) :: ub
2987 type(GK31_type) , intent(in) :: qrule
2988 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2989 real(RKC) :: quadGK
2990 end function
2991#endif
2992
2993 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2994
2995#if RK5_ENABLED
2996 module function getQuadGK31_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK5
2999#endif
3000 use pm_kind, only: RKC => RK5
3001 procedure(real(RKC)) :: getFunc
3002 type(ninf_type) , intent(in) :: lb
3003 real(RKC) , intent(in) :: ub
3004 type(GK31_type) , intent(in) :: qrule
3005 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3006 real(RKC) :: quadGK
3007 end function
3008#endif
3009
3010#if RK4_ENABLED
3011 module function getQuadGK31_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3013 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK4
3014#endif
3015 use pm_kind, only: RKC => RK4
3016 procedure(real(RKC)) :: getFunc
3017 type(ninf_type) , intent(in) :: lb
3018 real(RKC) , intent(in) :: ub
3019 type(GK31_type) , intent(in) :: qrule
3020 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3021 real(RKC) :: quadGK
3022 end function
3023#endif
3024
3025#if RK3_ENABLED
3026 module function getQuadGK31_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3028 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK3
3029#endif
3030 use pm_kind, only: RKC => RK3
3031 procedure(real(RKC)) :: getFunc
3032 type(ninf_type) , intent(in) :: lb
3033 real(RKC) , intent(in) :: ub
3034 type(GK31_type) , intent(in) :: qrule
3035 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3036 real(RKC) :: quadGK
3037 end function
3038#endif
3039
3040#if RK2_ENABLED
3041 module function getQuadGK31_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3043 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK2
3044#endif
3045 use pm_kind, only: RKC => RK2
3046 procedure(real(RKC)) :: getFunc
3047 type(ninf_type) , intent(in) :: lb
3048 real(RKC) , intent(in) :: ub
3049 type(GK31_type) , intent(in) :: qrule
3050 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3051 real(RKC) :: quadGK
3052 end function
3053#endif
3054
3055#if RK1_ENABLED
3056 module function getQuadGK31_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3058 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK1
3059#endif
3060 use pm_kind, only: RKC => RK1
3061 procedure(real(RKC)) :: getFunc
3062 type(ninf_type) , intent(in) :: lb
3063 real(RKC) , intent(in) :: ub
3064 type(GK31_type) , intent(in) :: qrule
3065 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3066 real(RKC) :: quadGK
3067 end function
3068#endif
3069
3070 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3071
3072#if RK5_ENABLED
3073 module function getQuadGK31_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK5
3076#endif
3077 use pm_kind, only: RKC => RK5
3078 procedure(real(RKC)) :: getFunc
3079 type(ninf_type) , intent(in) :: lb
3080 type(pinf_type) , intent(in) :: ub
3081 type(GK31_type) , intent(in) :: qrule
3082 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3083 real(RKC) :: quadGK
3084 end function
3085#endif
3086
3087#if RK4_ENABLED
3088 module function getQuadGK31_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3090 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK4
3091#endif
3092 use pm_kind, only: RKC => RK4
3093 procedure(real(RKC)) :: getFunc
3094 type(ninf_type) , intent(in) :: lb
3095 type(pinf_type) , intent(in) :: ub
3096 type(GK31_type) , intent(in) :: qrule
3097 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3098 real(RKC) :: quadGK
3099 end function
3100#endif
3101
3102#if RK3_ENABLED
3103 module function getQuadGK31_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3105 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK3
3106#endif
3107 use pm_kind, only: RKC => RK3
3108 procedure(real(RKC)) :: getFunc
3109 type(ninf_type) , intent(in) :: lb
3110 type(pinf_type) , intent(in) :: ub
3111 type(GK31_type) , intent(in) :: qrule
3112 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3113 real(RKC) :: quadGK
3114 end function
3115#endif
3116
3117#if RK2_ENABLED
3118 module function getQuadGK31_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3120 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK2
3121#endif
3122 use pm_kind, only: RKC => RK2
3123 procedure(real(RKC)) :: getFunc
3124 type(ninf_type) , intent(in) :: lb
3125 type(pinf_type) , intent(in) :: ub
3126 type(GK31_type) , intent(in) :: qrule
3127 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3128 real(RKC) :: quadGK
3129 end function
3130#endif
3131
3132#if RK1_ENABLED
3133 module function getQuadGK31_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3135 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK1
3136#endif
3137 use pm_kind, only: RKC => RK1
3138 procedure(real(RKC)) :: getFunc
3139 type(ninf_type) , intent(in) :: lb
3140 type(pinf_type) , intent(in) :: ub
3141 type(GK31_type) , intent(in) :: qrule
3142 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3143 real(RKC) :: quadGK
3144 end function
3145#endif
3146
3147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3148
3149 end interface
3150
3151 ! GK41
3152
3153 interface getQuadGK
3154
3155 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3156
3157#if RK5_ENABLED
3158 module function getQuadGK41_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3160 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK5
3161#endif
3162 use pm_kind, only: RKC => RK5
3163 procedure(real(RKC)) :: getFunc
3164 real(RKC) , intent(in) :: lb
3165 real(RKC) , intent(in) :: ub
3166 type(GK41_type) , intent(in) :: qrule
3167 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3168 real(RKC) :: quadGK
3169 end function
3170#endif
3171
3172#if RK4_ENABLED
3173 module function getQuadGK41_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3175 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK4
3176#endif
3177 use pm_kind, only: RKC => RK4
3178 procedure(real(RKC)) :: getFunc
3179 real(RKC) , intent(in) :: lb
3180 real(RKC) , intent(in) :: ub
3181 type(GK41_type) , intent(in) :: qrule
3182 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3183 real(RKC) :: quadGK
3184 end function
3185#endif
3186
3187#if RK3_ENABLED
3188 module function getQuadGK41_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3190 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK3
3191#endif
3192 use pm_kind, only: RKC => RK3
3193 procedure(real(RKC)) :: getFunc
3194 real(RKC) , intent(in) :: lb
3195 real(RKC) , intent(in) :: ub
3196 type(GK41_type) , intent(in) :: qrule
3197 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3198 real(RKC) :: quadGK
3199 end function
3200#endif
3201
3202#if RK2_ENABLED
3203 module function getQuadGK41_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3205 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK2
3206#endif
3207 use pm_kind, only: RKC => RK2
3208 procedure(real(RKC)) :: getFunc
3209 real(RKC) , intent(in) :: lb
3210 real(RKC) , intent(in) :: ub
3211 type(GK41_type) , intent(in) :: qrule
3212 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3213 real(RKC) :: quadGK
3214 end function
3215#endif
3216
3217#if RK1_ENABLED
3218 module function getQuadGK41_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3220 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK1
3221#endif
3222 use pm_kind, only: RKC => RK1
3223 procedure(real(RKC)) :: getFunc
3224 real(RKC) , intent(in) :: lb
3225 real(RKC) , intent(in) :: ub
3226 type(GK41_type) , intent(in) :: qrule
3227 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3228 real(RKC) :: quadGK
3229 end function
3230#endif
3231
3232 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3233
3234#if RK5_ENABLED
3235 module function getQuadGK41_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3237 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK5
3238#endif
3239 use pm_kind, only: RKC => RK5
3240 procedure(real(RKC)) :: getFunc
3241 real(RKC) , intent(in) :: lb
3242 type(pinf_type) , intent(in) :: ub
3243 type(GK41_type) , intent(in) :: qrule
3244 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3245 real(RKC) :: quadGK
3246 end function
3247#endif
3248
3249#if RK4_ENABLED
3250 module function getQuadGK41_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3252 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK4
3253#endif
3254 use pm_kind, only: RKC => RK4
3255 procedure(real(RKC)) :: getFunc
3256 real(RKC) , intent(in) :: lb
3257 type(pinf_type) , intent(in) :: ub
3258 type(GK41_type) , intent(in) :: qrule
3259 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3260 real(RKC) :: quadGK
3261 end function
3262#endif
3263
3264#if RK3_ENABLED
3265 module function getQuadGK41_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3267 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK3
3268#endif
3269 use pm_kind, only: RKC => RK3
3270 procedure(real(RKC)) :: getFunc
3271 real(RKC) , intent(in) :: lb
3272 type(pinf_type) , intent(in) :: ub
3273 type(GK41_type) , intent(in) :: qrule
3274 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3275 real(RKC) :: quadGK
3276 end function
3277#endif
3278
3279#if RK2_ENABLED
3280 module function getQuadGK41_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3282 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK2
3283#endif
3284 use pm_kind, only: RKC => RK2
3285 procedure(real(RKC)) :: getFunc
3286 real(RKC) , intent(in) :: lb
3287 type(pinf_type) , intent(in) :: ub
3288 type(GK41_type) , intent(in) :: qrule
3289 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3290 real(RKC) :: quadGK
3291 end function
3292#endif
3293
3294#if RK1_ENABLED
3295 module function getQuadGK41_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3297 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK1
3298#endif
3299 use pm_kind, only: RKC => RK1
3300 procedure(real(RKC)) :: getFunc
3301 real(RKC) , intent(in) :: lb
3302 type(pinf_type) , intent(in) :: ub
3303 type(GK41_type) , intent(in) :: qrule
3304 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3305 real(RKC) :: quadGK
3306 end function
3307#endif
3308
3309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3310
3311#if RK5_ENABLED
3312 module function getQuadGK41_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3314 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK5
3315#endif
3316 use pm_kind, only: RKC => RK5
3317 procedure(real(RKC)) :: getFunc
3318 type(ninf_type) , intent(in) :: lb
3319 real(RKC) , intent(in) :: ub
3320 type(GK41_type) , intent(in) :: qrule
3321 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3322 real(RKC) :: quadGK
3323 end function
3324#endif
3325
3326#if RK4_ENABLED
3327 module function getQuadGK41_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3329 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK4
3330#endif
3331 use pm_kind, only: RKC => RK4
3332 procedure(real(RKC)) :: getFunc
3333 type(ninf_type) , intent(in) :: lb
3334 real(RKC) , intent(in) :: ub
3335 type(GK41_type) , intent(in) :: qrule
3336 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3337 real(RKC) :: quadGK
3338 end function
3339#endif
3340
3341#if RK3_ENABLED
3342 module function getQuadGK41_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3344 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK3
3345#endif
3346 use pm_kind, only: RKC => RK3
3347 procedure(real(RKC)) :: getFunc
3348 type(ninf_type) , intent(in) :: lb
3349 real(RKC) , intent(in) :: ub
3350 type(GK41_type) , intent(in) :: qrule
3351 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3352 real(RKC) :: quadGK
3353 end function
3354#endif
3355
3356#if RK2_ENABLED
3357 module function getQuadGK41_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3359 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK2
3360#endif
3361 use pm_kind, only: RKC => RK2
3362 procedure(real(RKC)) :: getFunc
3363 type(ninf_type) , intent(in) :: lb
3364 real(RKC) , intent(in) :: ub
3365 type(GK41_type) , intent(in) :: qrule
3366 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3367 real(RKC) :: quadGK
3368 end function
3369#endif
3370
3371#if RK1_ENABLED
3372 module function getQuadGK41_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3374 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK1
3375#endif
3376 use pm_kind, only: RKC => RK1
3377 procedure(real(RKC)) :: getFunc
3378 type(ninf_type) , intent(in) :: lb
3379 real(RKC) , intent(in) :: ub
3380 type(GK41_type) , intent(in) :: qrule
3381 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3382 real(RKC) :: quadGK
3383 end function
3384#endif
3385
3386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3387
3388#if RK5_ENABLED
3389 module function getQuadGK41_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3391 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK5
3392#endif
3393 use pm_kind, only: RKC => RK5
3394 procedure(real(RKC)) :: getFunc
3395 type(ninf_type) , intent(in) :: lb
3396 type(pinf_type) , intent(in) :: ub
3397 type(GK41_type) , intent(in) :: qrule
3398 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3399 real(RKC) :: quadGK
3400 end function
3401#endif
3402
3403#if RK4_ENABLED
3404 module function getQuadGK41_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3406 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK4
3407#endif
3408 use pm_kind, only: RKC => RK4
3409 procedure(real(RKC)) :: getFunc
3410 type(ninf_type) , intent(in) :: lb
3411 type(pinf_type) , intent(in) :: ub
3412 type(GK41_type) , intent(in) :: qrule
3413 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3414 real(RKC) :: quadGK
3415 end function
3416#endif
3417
3418#if RK3_ENABLED
3419 module function getQuadGK41_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3421 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK3
3422#endif
3423 use pm_kind, only: RKC => RK3
3424 procedure(real(RKC)) :: getFunc
3425 type(ninf_type) , intent(in) :: lb
3426 type(pinf_type) , intent(in) :: ub
3427 type(GK41_type) , intent(in) :: qrule
3428 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3429 real(RKC) :: quadGK
3430 end function
3431#endif
3432
3433#if RK2_ENABLED
3434 module function getQuadGK41_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3436 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK2
3437#endif
3438 use pm_kind, only: RKC => RK2
3439 procedure(real(RKC)) :: getFunc
3440 type(ninf_type) , intent(in) :: lb
3441 type(pinf_type) , intent(in) :: ub
3442 type(GK41_type) , intent(in) :: qrule
3443 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3444 real(RKC) :: quadGK
3445 end function
3446#endif
3447
3448#if RK1_ENABLED
3449 module function getQuadGK41_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3451 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK1
3452#endif
3453 use pm_kind, only: RKC => RK1
3454 procedure(real(RKC)) :: getFunc
3455 type(ninf_type) , intent(in) :: lb
3456 type(pinf_type) , intent(in) :: ub
3457 type(GK41_type) , intent(in) :: qrule
3458 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3459 real(RKC) :: quadGK
3460 end function
3461#endif
3462
3463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3464
3465 end interface
3466
3467 ! GK51
3468
3469 interface getQuadGK
3470
3471 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3472
3473#if RK5_ENABLED
3474 module function getQuadGK51_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3476 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK5
3477#endif
3478 use pm_kind, only: RKC => RK5
3479 procedure(real(RKC)) :: getFunc
3480 real(RKC) , intent(in) :: lb
3481 real(RKC) , intent(in) :: ub
3482 type(GK51_type) , intent(in) :: qrule
3483 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3484 real(RKC) :: quadGK
3485 end function
3486#endif
3487
3488#if RK4_ENABLED
3489 module function getQuadGK51_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3491 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK4
3492#endif
3493 use pm_kind, only: RKC => RK4
3494 procedure(real(RKC)) :: getFunc
3495 real(RKC) , intent(in) :: lb
3496 real(RKC) , intent(in) :: ub
3497 type(GK51_type) , intent(in) :: qrule
3498 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3499 real(RKC) :: quadGK
3500 end function
3501#endif
3502
3503#if RK3_ENABLED
3504 module function getQuadGK51_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3506 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK3
3507#endif
3508 use pm_kind, only: RKC => RK3
3509 procedure(real(RKC)) :: getFunc
3510 real(RKC) , intent(in) :: lb
3511 real(RKC) , intent(in) :: ub
3512 type(GK51_type) , intent(in) :: qrule
3513 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3514 real(RKC) :: quadGK
3515 end function
3516#endif
3517
3518#if RK2_ENABLED
3519 module function getQuadGK51_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3521 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK2
3522#endif
3523 use pm_kind, only: RKC => RK2
3524 procedure(real(RKC)) :: getFunc
3525 real(RKC) , intent(in) :: lb
3526 real(RKC) , intent(in) :: ub
3527 type(GK51_type) , intent(in) :: qrule
3528 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3529 real(RKC) :: quadGK
3530 end function
3531#endif
3532
3533#if RK1_ENABLED
3534 module function getQuadGK51_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3536 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK1
3537#endif
3538 use pm_kind, only: RKC => RK1
3539 procedure(real(RKC)) :: getFunc
3540 real(RKC) , intent(in) :: lb
3541 real(RKC) , intent(in) :: ub
3542 type(GK51_type) , intent(in) :: qrule
3543 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3544 real(RKC) :: quadGK
3545 end function
3546#endif
3547
3548 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3549
3550#if RK5_ENABLED
3551 module function getQuadGK51_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3553 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK5
3554#endif
3555 use pm_kind, only: RKC => RK5
3556 procedure(real(RKC)) :: getFunc
3557 real(RKC) , intent(in) :: lb
3558 type(pinf_type) , intent(in) :: ub
3559 type(GK51_type) , intent(in) :: qrule
3560 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3561 real(RKC) :: quadGK
3562 end function
3563#endif
3564
3565#if RK4_ENABLED
3566 module function getQuadGK51_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3568 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK4
3569#endif
3570 use pm_kind, only: RKC => RK4
3571 procedure(real(RKC)) :: getFunc
3572 real(RKC) , intent(in) :: lb
3573 type(pinf_type) , intent(in) :: ub
3574 type(GK51_type) , intent(in) :: qrule
3575 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3576 real(RKC) :: quadGK
3577 end function
3578#endif
3579
3580#if RK3_ENABLED
3581 module function getQuadGK51_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3583 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK3
3584#endif
3585 use pm_kind, only: RKC => RK3
3586 procedure(real(RKC)) :: getFunc
3587 real(RKC) , intent(in) :: lb
3588 type(pinf_type) , intent(in) :: ub
3589 type(GK51_type) , intent(in) :: qrule
3590 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3591 real(RKC) :: quadGK
3592 end function
3593#endif
3594
3595#if RK2_ENABLED
3596 module function getQuadGK51_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3598 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK2
3599#endif
3600 use pm_kind, only: RKC => RK2
3601 procedure(real(RKC)) :: getFunc
3602 real(RKC) , intent(in) :: lb
3603 type(pinf_type) , intent(in) :: ub
3604 type(GK51_type) , intent(in) :: qrule
3605 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3606 real(RKC) :: quadGK
3607 end function
3608#endif
3609
3610#if RK1_ENABLED
3611 module function getQuadGK51_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3613 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK1
3614#endif
3615 use pm_kind, only: RKC => RK1
3616 procedure(real(RKC)) :: getFunc
3617 real(RKC) , intent(in) :: lb
3618 type(pinf_type) , intent(in) :: ub
3619 type(GK51_type) , intent(in) :: qrule
3620 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3621 real(RKC) :: quadGK
3622 end function
3623#endif
3624
3625 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3626
3627#if RK5_ENABLED
3628 module function getQuadGK51_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3630 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK5
3631#endif
3632 use pm_kind, only: RKC => RK5
3633 procedure(real(RKC)) :: getFunc
3634 type(ninf_type) , intent(in) :: lb
3635 real(RKC) , intent(in) :: ub
3636 type(GK51_type) , intent(in) :: qrule
3637 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3638 real(RKC) :: quadGK
3639 end function
3640#endif
3641
3642#if RK4_ENABLED
3643 module function getQuadGK51_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3645 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK4
3646#endif
3647 use pm_kind, only: RKC => RK4
3648 procedure(real(RKC)) :: getFunc
3649 type(ninf_type) , intent(in) :: lb
3650 real(RKC) , intent(in) :: ub
3651 type(GK51_type) , intent(in) :: qrule
3652 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3653 real(RKC) :: quadGK
3654 end function
3655#endif
3656
3657#if RK3_ENABLED
3658 module function getQuadGK51_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3660 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK3
3661#endif
3662 use pm_kind, only: RKC => RK3
3663 procedure(real(RKC)) :: getFunc
3664 type(ninf_type) , intent(in) :: lb
3665 real(RKC) , intent(in) :: ub
3666 type(GK51_type) , intent(in) :: qrule
3667 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3668 real(RKC) :: quadGK
3669 end function
3670#endif
3671
3672#if RK2_ENABLED
3673 module function getQuadGK51_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3675 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK2
3676#endif
3677 use pm_kind, only: RKC => RK2
3678 procedure(real(RKC)) :: getFunc
3679 type(ninf_type) , intent(in) :: lb
3680 real(RKC) , intent(in) :: ub
3681 type(GK51_type) , intent(in) :: qrule
3682 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3683 real(RKC) :: quadGK
3684 end function
3685#endif
3686
3687#if RK1_ENABLED
3688 module function getQuadGK51_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3690 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK1
3691#endif
3692 use pm_kind, only: RKC => RK1
3693 procedure(real(RKC)) :: getFunc
3694 type(ninf_type) , intent(in) :: lb
3695 real(RKC) , intent(in) :: ub
3696 type(GK51_type) , intent(in) :: qrule
3697 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3698 real(RKC) :: quadGK
3699 end function
3700#endif
3701
3702 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3703
3704#if RK5_ENABLED
3705 module function getQuadGK51_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3707 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK5
3708#endif
3709 use pm_kind, only: RKC => RK5
3710 procedure(real(RKC)) :: getFunc
3711 type(ninf_type) , intent(in) :: lb
3712 type(pinf_type) , intent(in) :: ub
3713 type(GK51_type) , intent(in) :: qrule
3714 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3715 real(RKC) :: quadGK
3716 end function
3717#endif
3718
3719#if RK4_ENABLED
3720 module function getQuadGK51_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3722 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK4
3723#endif
3724 use pm_kind, only: RKC => RK4
3725 procedure(real(RKC)) :: getFunc
3726 type(ninf_type) , intent(in) :: lb
3727 type(pinf_type) , intent(in) :: ub
3728 type(GK51_type) , intent(in) :: qrule
3729 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3730 real(RKC) :: quadGK
3731 end function
3732#endif
3733
3734#if RK3_ENABLED
3735 module function getQuadGK51_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3737 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK3
3738#endif
3739 use pm_kind, only: RKC => RK3
3740 procedure(real(RKC)) :: getFunc
3741 type(ninf_type) , intent(in) :: lb
3742 type(pinf_type) , intent(in) :: ub
3743 type(GK51_type) , intent(in) :: qrule
3744 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3745 real(RKC) :: quadGK
3746 end function
3747#endif
3748
3749#if RK2_ENABLED
3750 module function getQuadGK51_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3752 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK2
3753#endif
3754 use pm_kind, only: RKC => RK2
3755 procedure(real(RKC)) :: getFunc
3756 type(ninf_type) , intent(in) :: lb
3757 type(pinf_type) , intent(in) :: ub
3758 type(GK51_type) , intent(in) :: qrule
3759 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3760 real(RKC) :: quadGK
3761 end function
3762#endif
3763
3764#if RK1_ENABLED
3765 module function getQuadGK51_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3767 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK1
3768#endif
3769 use pm_kind, only: RKC => RK1
3770 procedure(real(RKC)) :: getFunc
3771 type(ninf_type) , intent(in) :: lb
3772 type(pinf_type) , intent(in) :: ub
3773 type(GK51_type) , intent(in) :: qrule
3774 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3775 real(RKC) :: quadGK
3776 end function
3777#endif
3778
3779 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3780
3781 end interface
3782
3783 ! GK61
3784
3785 interface getQuadGK
3786
3787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3788
3789#if RK5_ENABLED
3790 module function getQuadGK61_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3792 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK5
3793#endif
3794 use pm_kind, only: RKC => RK5
3795 procedure(real(RKC)) :: getFunc
3796 real(RKC) , intent(in) :: lb
3797 real(RKC) , intent(in) :: ub
3798 type(GK61_type) , intent(in) :: qrule
3799 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3800 real(RKC) :: quadGK
3801 end function
3802#endif
3803
3804#if RK4_ENABLED
3805 module function getQuadGK61_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3807 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK4
3808#endif
3809 use pm_kind, only: RKC => RK4
3810 procedure(real(RKC)) :: getFunc
3811 real(RKC) , intent(in) :: lb
3812 real(RKC) , intent(in) :: ub
3813 type(GK61_type) , intent(in) :: qrule
3814 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3815 real(RKC) :: quadGK
3816 end function
3817#endif
3818
3819#if RK3_ENABLED
3820 module function getQuadGK61_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3822 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK3
3823#endif
3824 use pm_kind, only: RKC => RK3
3825 procedure(real(RKC)) :: getFunc
3826 real(RKC) , intent(in) :: lb
3827 real(RKC) , intent(in) :: ub
3828 type(GK61_type) , intent(in) :: qrule
3829 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3830 real(RKC) :: quadGK
3831 end function
3832#endif
3833
3834#if RK2_ENABLED
3835 module function getQuadGK61_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3837 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK2
3838#endif
3839 use pm_kind, only: RKC => RK2
3840 procedure(real(RKC)) :: getFunc
3841 real(RKC) , intent(in) :: lb
3842 real(RKC) , intent(in) :: ub
3843 type(GK61_type) , intent(in) :: qrule
3844 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3845 real(RKC) :: quadGK
3846 end function
3847#endif
3848
3849#if RK1_ENABLED
3850 module function getQuadGK61_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3852 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK1
3853#endif
3854 use pm_kind, only: RKC => RK1
3855 procedure(real(RKC)) :: getFunc
3856 real(RKC) , intent(in) :: lb
3857 real(RKC) , intent(in) :: ub
3858 type(GK61_type) , intent(in) :: qrule
3859 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3860 real(RKC) :: quadGK
3861 end function
3862#endif
3863
3864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3865
3866#if RK5_ENABLED
3867 module function getQuadGK61_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3869 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK5
3870#endif
3871 use pm_kind, only: RKC => RK5
3872 procedure(real(RKC)) :: getFunc
3873 real(RKC) , intent(in) :: lb
3874 type(pinf_type) , intent(in) :: ub
3875 type(GK61_type) , intent(in) :: qrule
3876 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3877 real(RKC) :: quadGK
3878 end function
3879#endif
3880
3881#if RK4_ENABLED
3882 module function getQuadGK61_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3884 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK4
3885#endif
3886 use pm_kind, only: RKC => RK4
3887 procedure(real(RKC)) :: getFunc
3888 real(RKC) , intent(in) :: lb
3889 type(pinf_type) , intent(in) :: ub
3890 type(GK61_type) , intent(in) :: qrule
3891 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3892 real(RKC) :: quadGK
3893 end function
3894#endif
3895
3896#if RK3_ENABLED
3897 module function getQuadGK61_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3899 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK3
3900#endif
3901 use pm_kind, only: RKC => RK3
3902 procedure(real(RKC)) :: getFunc
3903 real(RKC) , intent(in) :: lb
3904 type(pinf_type) , intent(in) :: ub
3905 type(GK61_type) , intent(in) :: qrule
3906 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3907 real(RKC) :: quadGK
3908 end function
3909#endif
3910
3911#if RK2_ENABLED
3912 module function getQuadGK61_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3914 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK2
3915#endif
3916 use pm_kind, only: RKC => RK2
3917 procedure(real(RKC)) :: getFunc
3918 real(RKC) , intent(in) :: lb
3919 type(pinf_type) , intent(in) :: ub
3920 type(GK61_type) , intent(in) :: qrule
3921 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3922 real(RKC) :: quadGK
3923 end function
3924#endif
3925
3926#if RK1_ENABLED
3927 module function getQuadGK61_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3929 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK1
3930#endif
3931 use pm_kind, only: RKC => RK1
3932 procedure(real(RKC)) :: getFunc
3933 real(RKC) , intent(in) :: lb
3934 type(pinf_type) , intent(in) :: ub
3935 type(GK61_type) , intent(in) :: qrule
3936 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3937 real(RKC) :: quadGK
3938 end function
3939#endif
3940
3941 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3942
3943#if RK5_ENABLED
3944 module function getQuadGK61_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3946 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK5
3947#endif
3948 use pm_kind, only: RKC => RK5
3949 procedure(real(RKC)) :: getFunc
3950 type(ninf_type) , intent(in) :: lb
3951 real(RKC) , intent(in) :: ub
3952 type(GK61_type) , intent(in) :: qrule
3953 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3954 real(RKC) :: quadGK
3955 end function
3956#endif
3957
3958#if RK4_ENABLED
3959 module function getQuadGK61_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3961 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK4
3962#endif
3963 use pm_kind, only: RKC => RK4
3964 procedure(real(RKC)) :: getFunc
3965 type(ninf_type) , intent(in) :: lb
3966 real(RKC) , intent(in) :: ub
3967 type(GK61_type) , intent(in) :: qrule
3968 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3969 real(RKC) :: quadGK
3970 end function
3971#endif
3972
3973#if RK3_ENABLED
3974 module function getQuadGK61_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3976 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK3
3977#endif
3978 use pm_kind, only: RKC => RK3
3979 procedure(real(RKC)) :: getFunc
3980 type(ninf_type) , intent(in) :: lb
3981 real(RKC) , intent(in) :: ub
3982 type(GK61_type) , intent(in) :: qrule
3983 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3984 real(RKC) :: quadGK
3985 end function
3986#endif
3987
3988#if RK2_ENABLED
3989 module function getQuadGK61_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3991 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK2
3992#endif
3993 use pm_kind, only: RKC => RK2
3994 procedure(real(RKC)) :: getFunc
3995 type(ninf_type) , intent(in) :: lb
3996 real(RKC) , intent(in) :: ub
3997 type(GK61_type) , intent(in) :: qrule
3998 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3999 real(RKC) :: quadGK
4000 end function
4001#endif
4002
4003#if RK1_ENABLED
4004 module function getQuadGK61_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4006 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK1
4007#endif
4008 use pm_kind, only: RKC => RK1
4009 procedure(real(RKC)) :: getFunc
4010 type(ninf_type) , intent(in) :: lb
4011 real(RKC) , intent(in) :: ub
4012 type(GK61_type) , intent(in) :: qrule
4013 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4014 real(RKC) :: quadGK
4015 end function
4016#endif
4017
4018 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4019
4020#if RK5_ENABLED
4021 module function getQuadGK61_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4023 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK5
4024#endif
4025 use pm_kind, only: RKC => RK5
4026 procedure(real(RKC)) :: getFunc
4027 type(ninf_type) , intent(in) :: lb
4028 type(pinf_type) , intent(in) :: ub
4029 type(GK61_type) , intent(in) :: qrule
4030 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4031 real(RKC) :: quadGK
4032 end function
4033#endif
4034
4035#if RK4_ENABLED
4036 module function getQuadGK61_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4038 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK4
4039#endif
4040 use pm_kind, only: RKC => RK4
4041 procedure(real(RKC)) :: getFunc
4042 type(ninf_type) , intent(in) :: lb
4043 type(pinf_type) , intent(in) :: ub
4044 type(GK61_type) , intent(in) :: qrule
4045 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4046 real(RKC) :: quadGK
4047 end function
4048#endif
4049
4050#if RK3_ENABLED
4051 module function getQuadGK61_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4053 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK3
4054#endif
4055 use pm_kind, only: RKC => RK3
4056 procedure(real(RKC)) :: getFunc
4057 type(ninf_type) , intent(in) :: lb
4058 type(pinf_type) , intent(in) :: ub
4059 type(GK61_type) , intent(in) :: qrule
4060 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4061 real(RKC) :: quadGK
4062 end function
4063#endif
4064
4065#if RK2_ENABLED
4066 module function getQuadGK61_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4068 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK2
4069#endif
4070 use pm_kind, only: RKC => RK2
4071 procedure(real(RKC)) :: getFunc
4072 type(ninf_type) , intent(in) :: lb
4073 type(pinf_type) , intent(in) :: ub
4074 type(GK61_type) , intent(in) :: qrule
4075 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4076 real(RKC) :: quadGK
4077 end function
4078#endif
4079
4080#if RK1_ENABLED
4081 module function getQuadGK61_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4083 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK1
4084#endif
4085 use pm_kind, only: RKC => RK1
4086 procedure(real(RKC)) :: getFunc
4087 type(ninf_type) , intent(in) :: lb
4088 type(pinf_type) , intent(in) :: ub
4089 type(GK61_type) , intent(in) :: qrule
4090 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4091 real(RKC) :: quadGK
4092 end function
4093#endif
4094
4095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4096
4097 end interface
4098
4099 ! GKXX
4100
4101 interface getQuadGK
4102
4103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4104
4105#if RK5_ENABLED
4106 module function getQuadGKXX_FF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4108 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK5
4109#endif
4110 use pm_kind, only: RKC => RK5
4111 procedure(real(RKC)) :: getFunc
4112 real(RKC) , intent(in) :: lb
4113 real(RKC) , intent(in) :: ub
4114 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4115 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4116 real(RKC) :: quadGK
4117 end function
4118#endif
4119
4120#if RK4_ENABLED
4121 module function getQuadGKXX_FF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4123 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK4
4124#endif
4125 use pm_kind, only: RKC => RK4
4126 procedure(real(RKC)) :: getFunc
4127 real(RKC) , intent(in) :: lb
4128 real(RKC) , intent(in) :: ub
4129 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4130 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4131 real(RKC) :: quadGK
4132 end function
4133#endif
4134
4135#if RK3_ENABLED
4136 module function getQuadGKXX_FF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4138 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK3
4139#endif
4140 use pm_kind, only: RKC => RK3
4141 procedure(real(RKC)) :: getFunc
4142 real(RKC) , intent(in) :: lb
4143 real(RKC) , intent(in) :: ub
4144 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4145 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4146 real(RKC) :: quadGK
4147 end function
4148#endif
4149
4150#if RK2_ENABLED
4151 module function getQuadGKXX_FF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4153 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK2
4154#endif
4155 use pm_kind, only: RKC => RK2
4156 procedure(real(RKC)) :: getFunc
4157 real(RKC) , intent(in) :: lb
4158 real(RKC) , intent(in) :: ub
4159 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4160 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4161 real(RKC) :: quadGK
4162 end function
4163#endif
4164
4165#if RK1_ENABLED
4166 module function getQuadGKXX_FF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4168 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK1
4169#endif
4170 use pm_kind, only: RKC => RK1
4171 procedure(real(RKC)) :: getFunc
4172 real(RKC) , intent(in) :: lb
4173 real(RKC) , intent(in) :: ub
4174 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4175 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4176 real(RKC) :: quadGK
4177 end function
4178#endif
4179
4180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4181
4182#if RK5_ENABLED
4183 module function getQuadGKXX_FI_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4185 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK5
4186#endif
4187 use pm_kind, only: RKC => RK5
4188 procedure(real(RKC)) :: getFunc
4189 real(RKC) , intent(in) :: lb
4190 type(pinf_type) , intent(in) :: ub
4191 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4192 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4193 real(RKC) :: quadGK
4194 end function
4195#endif
4196
4197#if RK4_ENABLED
4198 module function getQuadGKXX_FI_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4200 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK4
4201#endif
4202 use pm_kind, only: RKC => RK4
4203 procedure(real(RKC)) :: getFunc
4204 real(RKC) , intent(in) :: lb
4205 type(pinf_type) , intent(in) :: ub
4206 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4207 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4208 real(RKC) :: quadGK
4209 end function
4210#endif
4211
4212#if RK3_ENABLED
4213 module function getQuadGKXX_FI_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4215 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK3
4216#endif
4217 use pm_kind, only: RKC => RK3
4218 procedure(real(RKC)) :: getFunc
4219 real(RKC) , intent(in) :: lb
4220 type(pinf_type) , intent(in) :: ub
4221 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4222 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4223 real(RKC) :: quadGK
4224 end function
4225#endif
4226
4227#if RK2_ENABLED
4228 module function getQuadGKXX_FI_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4230 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK2
4231#endif
4232 use pm_kind, only: RKC => RK2
4233 procedure(real(RKC)) :: getFunc
4234 real(RKC) , intent(in) :: lb
4235 type(pinf_type) , intent(in) :: ub
4236 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4237 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4238 real(RKC) :: quadGK
4239 end function
4240#endif
4241
4242#if RK1_ENABLED
4243 module function getQuadGKXX_FI_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4245 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK1
4246#endif
4247 use pm_kind, only: RKC => RK1
4248 procedure(real(RKC)) :: getFunc
4249 real(RKC) , intent(in) :: lb
4250 type(pinf_type) , intent(in) :: ub
4251 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4252 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4253 real(RKC) :: quadGK
4254 end function
4255#endif
4256
4257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4258
4259#if RK5_ENABLED
4260 module function getQuadGKXX_IF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4262 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK5
4263#endif
4264 use pm_kind, only: RKC => RK5
4265 procedure(real(RKC)) :: getFunc
4266 type(ninf_type) , intent(in) :: lb
4267 real(RKC) , intent(in) :: ub
4268 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4269 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4270 real(RKC) :: quadGK
4271 end function
4272#endif
4273
4274#if RK4_ENABLED
4275 module function getQuadGKXX_IF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4277 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK4
4278#endif
4279 use pm_kind, only: RKC => RK4
4280 procedure(real(RKC)) :: getFunc
4281 type(ninf_type) , intent(in) :: lb
4282 real(RKC) , intent(in) :: ub
4283 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4284 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4285 real(RKC) :: quadGK
4286 end function
4287#endif
4288
4289#if RK3_ENABLED
4290 module function getQuadGKXX_IF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4292 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK3
4293#endif
4294 use pm_kind, only: RKC => RK3
4295 procedure(real(RKC)) :: getFunc
4296 type(ninf_type) , intent(in) :: lb
4297 real(RKC) , intent(in) :: ub
4298 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4299 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4300 real(RKC) :: quadGK
4301 end function
4302#endif
4303
4304#if RK2_ENABLED
4305 module function getQuadGKXX_IF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4307 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK2
4308#endif
4309 use pm_kind, only: RKC => RK2
4310 procedure(real(RKC)) :: getFunc
4311 type(ninf_type) , intent(in) :: lb
4312 real(RKC) , intent(in) :: ub
4313 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4314 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4315 real(RKC) :: quadGK
4316 end function
4317#endif
4318
4319#if RK1_ENABLED
4320 module function getQuadGKXX_IF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4322 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK1
4323#endif
4324 use pm_kind, only: RKC => RK1
4325 procedure(real(RKC)) :: getFunc
4326 type(ninf_type) , intent(in) :: lb
4327 real(RKC) , intent(in) :: ub
4328 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4329 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4330 real(RKC) :: quadGK
4331 end function
4332#endif
4333
4334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4335
4336#if RK5_ENABLED
4337 module function getQuadGKXX_II_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4339 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK5
4340#endif
4341 use pm_kind, only: RKC => RK5
4342 procedure(real(RKC)) :: getFunc
4343 type(ninf_type) , intent(in) :: lb
4344 type(pinf_type) , intent(in) :: ub
4345 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4346 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4347 real(RKC) :: quadGK
4348 end function
4349#endif
4350
4351#if RK4_ENABLED
4352 module function getQuadGKXX_II_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4354 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK4
4355#endif
4356 use pm_kind, only: RKC => RK4
4357 procedure(real(RKC)) :: getFunc
4358 type(ninf_type) , intent(in) :: lb
4359 type(pinf_type) , intent(in) :: ub
4360 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4361 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4362 real(RKC) :: quadGK
4363 end function
4364#endif
4365
4366#if RK3_ENABLED
4367 module function getQuadGKXX_II_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4369 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK3
4370#endif
4371 use pm_kind, only: RKC => RK3
4372 procedure(real(RKC)) :: getFunc
4373 type(ninf_type) , intent(in) :: lb
4374 type(pinf_type) , intent(in) :: ub
4375 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4376 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4377 real(RKC) :: quadGK
4378 end function
4379#endif
4380
4381#if RK2_ENABLED
4382 module function getQuadGKXX_II_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4384 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK2
4385#endif
4386 use pm_kind, only: RKC => RK2
4387 procedure(real(RKC)) :: getFunc
4388 type(ninf_type) , intent(in) :: lb
4389 type(pinf_type) , intent(in) :: ub
4390 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4391 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4392 real(RKC) :: quadGK
4393 end function
4394#endif
4395
4396#if RK1_ENABLED
4397 module function getQuadGKXX_II_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4399 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK1
4400#endif
4401 use pm_kind, only: RKC => RK1
4402 procedure(real(RKC)) :: getFunc
4403 type(ninf_type) , intent(in) :: lb
4404 type(pinf_type) , intent(in) :: ub
4405 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4406 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4407 real(RKC) :: quadGK
4408 end function
4409#endif
4410
4411 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4412
4413 end interface
4414
4415!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4416
4435 integer(IK) , parameter :: MAXLEN_EPSTAB = 50_IK
4437
4466 end type
4467
4486 type(weps_type) , parameter :: weps = weps_type()
4487
4488!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4489
4532
4533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4534
4535#if RK5_ENABLED
4536 pure module subroutine setSeqLimEps_RK5(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4538 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK5
4539#endif
4540 use pm_kind, only: RKC => RK5
4541 integer(IK) , intent(inout) :: inew, ical
4542 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4543 real(RKC) , intent(out) :: seqlim, abserr
4544 end subroutine
4545#endif
4546
4547#if RK4_ENABLED
4548 pure module subroutine setSeqLimEps_RK4(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4550 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK4
4551#endif
4552 use pm_kind, only: RKC => RK4
4553 integer(IK) , intent(inout) :: inew, ical
4554 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4555 real(RKC) , intent(out) :: seqlim, abserr
4556 end subroutine
4557#endif
4558
4559#if RK3_ENABLED
4560 pure module subroutine setSeqLimEps_RK3(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4562 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK3
4563#endif
4564 use pm_kind, only: RKC => RK3
4565 integer(IK) , intent(inout) :: inew, ical
4566 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4567 real(RKC) , intent(out) :: seqlim, abserr
4568 end subroutine
4569#endif
4570
4571#if RK2_ENABLED
4572 pure module subroutine setSeqLimEps_RK2(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4574 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK2
4575#endif
4576 use pm_kind, only: RKC => RK2
4577 integer(IK) , intent(inout) :: inew, ical
4578 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4579 real(RKC) , intent(out) :: seqlim, abserr
4580 end subroutine
4581#endif
4582
4583#if RK1_ENABLED
4584 pure module subroutine setSeqLimEps_RK1(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4586 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK1
4587#endif
4588 use pm_kind, only: RKC => RK1
4589 integer(IK) , intent(inout) :: inew, ical
4590 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4591 real(RKC) , intent(out) :: seqlim, abserr
4592 end subroutine
4593#endif
4594
4595 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4596
4597 end interface
4598
4599!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4600
4645
4646 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4647
4648#if RK5_ENABLED
4649 PURE module subroutine setErrSorted_RK5(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4651 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK5
4652#endif
4653 use pm_kind, only: RKC => RK5
4654 integer(IK) , intent(in) :: nintmax
4655 real(RKC) , intent(in) :: sinfoErr(:)
4656 integer(IK) , intent(inout) , contiguous :: sindex(:)
4657 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4658 real(RKC) , intent(out) :: maxErrVal
4659 end subroutine
4660#endif
4661
4662#if RK4_ENABLED
4663 PURE module subroutine setErrSorted_RK4(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4665 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK4
4666#endif
4667 use pm_kind, only: RKC => RK4
4668 integer(IK) , intent(in) :: nintmax
4669 real(RKC) , intent(in) :: sinfoErr(:)
4670 integer(IK) , intent(inout) , contiguous :: sindex(:)
4671 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4672 real(RKC) , intent(out) :: maxErrVal
4673 end subroutine
4674#endif
4675
4676#if RK3_ENABLED
4677 PURE module subroutine setErrSorted_RK3(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4679 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK3
4680#endif
4681 use pm_kind, only: RKC => RK3
4682 integer(IK) , intent(in) :: nintmax
4683 real(RKC) , intent(in) :: sinfoErr(:)
4684 integer(IK) , intent(inout) , contiguous :: sindex(:)
4685 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4686 real(RKC) , intent(out) :: maxErrVal
4687 end subroutine
4688#endif
4689
4690#if RK2_ENABLED
4691 PURE module subroutine setErrSorted_RK2(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4693 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK2
4694#endif
4695 use pm_kind, only: RKC => RK2
4696 integer(IK) , intent(in) :: nintmax
4697 real(RKC) , intent(in) :: sinfoErr(:)
4698 integer(IK) , intent(inout) , contiguous :: sindex(:)
4699 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4700 real(RKC) , intent(out) :: maxErrVal
4701 end subroutine
4702#endif
4703
4704#if RK1_ENABLED
4705 PURE module subroutine setErrSorted_RK1(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4707 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK1
4708#endif
4709 use pm_kind, only: RKC => RK1
4710 integer(IK) , intent(in) :: nintmax
4711 real(RKC) , intent(in) :: sinfoErr(:)
4712 integer(IK) , intent(inout) , contiguous :: sindex(:)
4713 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4714 real(RKC) , intent(out) :: maxErrVal
4715 end subroutine
4716#endif
4717
4718 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4719
4720 end interface
4721
4722!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4723
4771
4772 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4773
4774#if RK5_ENABLED
4775 pure module subroutine setChebExpan_RK5(func, cheb12, cheb24)
4776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4777 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK5
4778#endif
4779 use pm_kind, only: RKC => RK5
4780 real(RKC) , intent(inout) :: func(25)
4781 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4782 end subroutine
4783#endif
4784
4785#if RK4_ENABLED
4786 pure module subroutine setChebExpan_RK4(func, cheb12, cheb24)
4787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4788 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK4
4789#endif
4790 use pm_kind, only: RKC => RK4
4791 real(RKC) , intent(inout) :: func(25)
4792 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4793 end subroutine
4794#endif
4795
4796#if RK3_ENABLED
4797 pure module subroutine setChebExpan_RK3(func, cheb12, cheb24)
4798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4799 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK3
4800#endif
4801 use pm_kind, only: RKC => RK3
4802 real(RKC) , intent(inout) :: func(25)
4803 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4804 end subroutine
4805#endif
4806
4807#if RK2_ENABLED
4808 pure module subroutine setChebExpan_RK2(func, cheb12, cheb24)
4809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4810 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK2
4811#endif
4812 use pm_kind, only: RKC => RK2
4813 real(RKC) , intent(inout) :: func(25)
4814 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4815 end subroutine
4816#endif
4817
4818#if RK1_ENABLED
4819 pure module subroutine setChebExpan_RK1(func, cheb12, cheb24)
4820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4821 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK1
4822#endif
4823 use pm_kind, only: RKC => RK1
4824 real(RKC) , intent(inout) :: func(25)
4825 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4826 end subroutine
4827#endif
4828
4829 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4830
4831 end interface
4832
4833!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4834
4922
4923 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4924
4925#if RK5_ENABLED
4926 module function isFailedQuadQAGD_RK5(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4928 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK5
4929#endif
4930 use pm_kind, only: RKC => RK5
4931 procedure(real(RKC)) :: getFunc
4932 real(RKC) , intent(in) :: lb, ub
4933 real(RKC) , intent(out) :: integral
4934 real(RKC) , intent(out) , optional :: abserr
4935 real(RKC) , intent(in) , optional :: abstol
4936 real(RKC) , intent(in) , optional :: reltol
4937 integer(IK) , intent(out) , optional :: neval
4938 integer(IK) , intent(out) , optional :: nint
4939 character(*, SK) , intent(out) , optional :: msg
4940 logical(LK) :: failed
4941 end function
4942#endif
4943
4944#if RK4_ENABLED
4945 module function isFailedQuadQAGD_RK4(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4947 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK4
4948#endif
4949 use pm_kind, only: RKC => RK4
4950 procedure(real(RKC)) :: getFunc
4951 real(RKC) , intent(in) :: lb, ub
4952 real(RKC) , intent(out) :: integral
4953 real(RKC) , intent(out) , optional :: abserr
4954 real(RKC) , intent(in) , optional :: abstol
4955 real(RKC) , intent(in) , optional :: reltol
4956 integer(IK) , intent(out) , optional :: neval
4957 integer(IK) , intent(out) , optional :: nint
4958 character(*, SK) , intent(out) , optional :: msg
4959 logical(LK) :: failed
4960 end function
4961#endif
4962
4963#if RK3_ENABLED
4964 module function isFailedQuadQAGD_RK3(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4966 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK3
4967#endif
4968 use pm_kind, only: RKC => RK3
4969 procedure(real(RKC)) :: getFunc
4970 real(RKC) , intent(in) :: lb, ub
4971 real(RKC) , intent(out) :: integral
4972 real(RKC) , intent(out) , optional :: abserr
4973 real(RKC) , intent(in) , optional :: abstol
4974 real(RKC) , intent(in) , optional :: reltol
4975 integer(IK) , intent(out) , optional :: neval
4976 integer(IK) , intent(out) , optional :: nint
4977 character(*, SK) , intent(out) , optional :: msg
4978 logical(LK) :: failed
4979 end function
4980#endif
4981
4982#if RK2_ENABLED
4983 module function isFailedQuadQAGD_RK2(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4985 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK2
4986#endif
4987 use pm_kind, only: RKC => RK2
4988 procedure(real(RKC)) :: getFunc
4989 real(RKC) , intent(in) :: lb, ub
4990 real(RKC) , intent(out) :: integral
4991 real(RKC) , intent(out) , optional :: abserr
4992 real(RKC) , intent(in) , optional :: abstol
4993 real(RKC) , intent(in) , optional :: reltol
4994 integer(IK) , intent(out) , optional :: neval
4995 integer(IK) , intent(out) , optional :: nint
4996 character(*, SK) , intent(out) , optional :: msg
4997 logical(LK) :: failed
4998 end function
4999#endif
5000
5001#if RK1_ENABLED
5002 module function isFailedQuadQAGD_RK1(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5004 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK1
5005#endif
5006 use pm_kind, only: RKC => RK1
5007 procedure(real(RKC)) :: getFunc
5008 real(RKC) , intent(in) :: lb, ub
5009 real(RKC) , intent(out) :: integral
5010 real(RKC) , intent(out) , optional :: abserr
5011 real(RKC) , intent(in) , optional :: abstol
5012 real(RKC) , intent(in) , optional :: reltol
5013 integer(IK) , intent(out) , optional :: neval
5014 integer(IK) , intent(out) , optional :: nint
5015 character(*, SK) , intent(out) , optional :: msg
5016 logical(LK) :: failed
5017 end function
5018#endif
5019
5020 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5021
5022#if RK5_ENABLED
5023 module function isFailedQuadQAGS_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5025 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK5
5026#endif
5027 use pm_kind, only: RKC => RK5
5028 procedure(real(RKC)) :: getFunc
5029 real(RKC) , intent(in) :: lb, ub
5030 real(RKC) , intent(out) :: integral
5031 type(weps_type) , intent(in) :: help
5032 real(RKC) , intent(out) , optional :: abserr
5033 real(RKC) , intent(in) , optional :: abstol
5034 real(RKC) , intent(in) , optional :: reltol
5035 integer(IK) , intent(out) , optional :: neval
5036 integer(IK) , intent(out) , optional :: nint
5037 character(*, SK) , intent(out) , optional :: msg
5038 logical(LK) :: failed
5039 end function
5040#endif
5041
5042#if RK4_ENABLED
5043 module function isFailedQuadQAGS_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5045 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK4
5046#endif
5047 use pm_kind, only: RKC => RK4
5048 procedure(real(RKC)) :: getFunc
5049 real(RKC) , intent(in) :: lb, ub
5050 real(RKC) , intent(out) :: integral
5051 type(weps_type) , intent(in) :: help
5052 real(RKC) , intent(out) , optional :: abserr
5053 real(RKC) , intent(in) , optional :: abstol
5054 real(RKC) , intent(in) , optional :: reltol
5055 integer(IK) , intent(out) , optional :: neval
5056 integer(IK) , intent(out) , optional :: nint
5057 character(*, SK) , intent(out) , optional :: msg
5058 logical(LK) :: failed
5059 end function
5060#endif
5061
5062#if RK3_ENABLED
5063 module function isFailedQuadQAGS_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5065 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK3
5066#endif
5067 use pm_kind, only: RKC => RK3
5068 procedure(real(RKC)) :: getFunc
5069 real(RKC) , intent(in) :: lb, ub
5070 real(RKC) , intent(out) :: integral
5071 type(weps_type) , intent(in) :: help
5072 real(RKC) , intent(out) , optional :: abserr
5073 real(RKC) , intent(in) , optional :: abstol
5074 real(RKC) , intent(in) , optional :: reltol
5075 integer(IK) , intent(out) , optional :: neval
5076 integer(IK) , intent(out) , optional :: nint
5077 character(*, SK) , intent(out) , optional :: msg
5078 logical(LK) :: failed
5079 end function
5080#endif
5081
5082#if RK2_ENABLED
5083 module function isFailedQuadQAGS_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5085 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK2
5086#endif
5087 use pm_kind, only: RKC => RK2
5088 procedure(real(RKC)) :: getFunc
5089 real(RKC) , intent(in) :: lb, ub
5090 real(RKC) , intent(out) :: integral
5091 type(weps_type) , intent(in) :: help
5092 real(RKC) , intent(out) , optional :: abserr
5093 real(RKC) , intent(in) , optional :: abstol
5094 real(RKC) , intent(in) , optional :: reltol
5095 integer(IK) , intent(out) , optional :: neval
5096 integer(IK) , intent(out) , optional :: nint
5097 character(*, SK) , intent(out) , optional :: msg
5098 logical(LK) :: failed
5099 end function
5100#endif
5101
5102#if RK1_ENABLED
5103 module function isFailedQuadQAGS_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5105 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK1
5106#endif
5107 use pm_kind, only: RKC => RK1
5108 procedure(real(RKC)) :: getFunc
5109 real(RKC) , intent(in) :: lb, ub
5110 real(RKC) , intent(out) :: integral
5111 type(weps_type) , intent(in) :: help
5112 real(RKC) , intent(out) , optional :: abserr
5113 real(RKC) , intent(in) , optional :: abstol
5114 real(RKC) , intent(in) , optional :: reltol
5115 integer(IK) , intent(out) , optional :: neval
5116 integer(IK) , intent(out) , optional :: nint
5117 character(*, SK) , intent(out) , optional :: msg
5118 logical(LK) :: failed
5119 end function
5120#endif
5121
5122 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5123
5124#if RK5_ENABLED
5125 module function isFailedQuadQAGP_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5127 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK5
5128#endif
5129 use pm_kind, only: RKC => RK5
5130 procedure(real(RKC)) :: getFunc
5131 real(RKC) , intent(in) :: lb, ub
5132 real(RKC) , intent(out) :: integral
5133 real(RKC) , intent(in) , contiguous :: help(:)
5134 real(RKC) , intent(out) , optional :: abserr
5135 real(RKC) , intent(in) , optional :: abstol
5136 real(RKC) , intent(in) , optional :: reltol
5137 integer(IK) , intent(out) , optional :: neval
5138 integer(IK) , intent(out) , optional :: nint
5139 character(*, SK) , intent(out) , optional :: msg
5140 logical(LK) :: failed
5141 end function
5142#endif
5143
5144#if RK4_ENABLED
5145 module function isFailedQuadQAGP_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5147 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK4
5148#endif
5149 use pm_kind, only: RKC => RK4
5150 procedure(real(RKC)) :: getFunc
5151 real(RKC) , intent(in) :: lb, ub
5152 real(RKC) , intent(out) :: integral
5153 real(RKC) , intent(in) , contiguous :: help(:)
5154 real(RKC) , intent(out) , optional :: abserr
5155 real(RKC) , intent(in) , optional :: abstol
5156 real(RKC) , intent(in) , optional :: reltol
5157 integer(IK) , intent(out) , optional :: neval
5158 integer(IK) , intent(out) , optional :: nint
5159 character(*, SK) , intent(out) , optional :: msg
5160 logical(LK) :: failed
5161 end function
5162#endif
5163
5164#if RK3_ENABLED
5165 module function isFailedQuadQAGP_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5167 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK3
5168#endif
5169 use pm_kind, only: RKC => RK3
5170 procedure(real(RKC)) :: getFunc
5171 real(RKC) , intent(in) :: lb, ub
5172 real(RKC) , intent(out) :: integral
5173 real(RKC) , intent(in) , contiguous :: help(:)
5174 real(RKC) , intent(out) , optional :: abserr
5175 real(RKC) , intent(in) , optional :: abstol
5176 real(RKC) , intent(in) , optional :: reltol
5177 integer(IK) , intent(out) , optional :: neval
5178 integer(IK) , intent(out) , optional :: nint
5179 character(*, SK) , intent(out) , optional :: msg
5180 logical(LK) :: failed
5181 end function
5182#endif
5183
5184#if RK2_ENABLED
5185 module function isFailedQuadQAGP_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5187 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK2
5188#endif
5189 use pm_kind, only: RKC => RK2
5190 procedure(real(RKC)) :: getFunc
5191 real(RKC) , intent(in) :: lb, ub
5192 real(RKC) , intent(out) :: integral
5193 real(RKC) , intent(in) , contiguous :: help(:)
5194 real(RKC) , intent(out) , optional :: abserr
5195 real(RKC) , intent(in) , optional :: abstol
5196 real(RKC) , intent(in) , optional :: reltol
5197 integer(IK) , intent(out) , optional :: neval
5198 integer(IK) , intent(out) , optional :: nint
5199 character(*, SK) , intent(out) , optional :: msg
5200 logical(LK) :: failed
5201 end function
5202#endif
5203
5204#if RK1_ENABLED
5205 module function isFailedQuadQAGP_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5207 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK1
5208#endif
5209 use pm_kind, only: RKC => RK1
5210 procedure(real(RKC)) :: getFunc
5211 real(RKC) , intent(in) :: lb, ub
5212 real(RKC) , intent(out) :: integral
5213 real(RKC) , intent(in) , contiguous :: help(:)
5214 real(RKC) , intent(out) , optional :: abserr
5215 real(RKC) , intent(in) , optional :: abstol
5216 real(RKC) , intent(in) , optional :: reltol
5217 integer(IK) , intent(out) , optional :: neval
5218 integer(IK) , intent(out) , optional :: nint
5219 character(*, SK) , intent(out) , optional :: msg
5220 logical(LK) :: failed
5221 end function
5222#endif
5223
5224 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5225
5226#if RK5_ENABLED
5227 module function isFailedQuadQAWC_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5229 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK5
5230#endif
5231 use pm_kind, only: RKC => RK5
5232 procedure(real(RKC)) :: getFunc
5233 real(RKC) , intent(in) :: lb, ub
5234 real(RKC) , intent(out) :: integral
5235 type(wcauchy_type) , intent(in) :: help
5236 real(RKC) , intent(out) , optional :: abserr
5237 real(RKC) , intent(in) , optional :: abstol
5238 real(RKC) , intent(in) , optional :: reltol
5239 integer(IK) , intent(out) , optional :: neval
5240 integer(IK) , intent(out) , optional :: nint
5241 character(*, SK) , intent(out) , optional :: msg
5242 logical(LK) :: failed
5243 end function
5244#endif
5245
5246#if RK4_ENABLED
5247 module function isFailedQuadQAWC_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5249 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK4
5250#endif
5251 use pm_kind, only: RKC => RK4
5252 procedure(real(RKC)) :: getFunc
5253 real(RKC) , intent(in) :: lb, ub
5254 real(RKC) , intent(out) :: integral
5255 type(wcauchy_type) , intent(in) :: help
5256 real(RKC) , intent(out) , optional :: abserr
5257 real(RKC) , intent(in) , optional :: abstol
5258 real(RKC) , intent(in) , optional :: reltol
5259 integer(IK) , intent(out) , optional :: neval
5260 integer(IK) , intent(out) , optional :: nint
5261 character(*, SK) , intent(out) , optional :: msg
5262 logical(LK) :: failed
5263 end function
5264#endif
5265
5266#if RK3_ENABLED
5267 module function isFailedQuadQAWC_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5269 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK3
5270#endif
5271 use pm_kind, only: RKC => RK3
5272 procedure(real(RKC)) :: getFunc
5273 real(RKC) , intent(in) :: lb, ub
5274 real(RKC) , intent(out) :: integral
5275 type(wcauchy_type) , intent(in) :: help
5276 real(RKC) , intent(out) , optional :: abserr
5277 real(RKC) , intent(in) , optional :: abstol
5278 real(RKC) , intent(in) , optional :: reltol
5279 integer(IK) , intent(out) , optional :: neval
5280 integer(IK) , intent(out) , optional :: nint
5281 character(*, SK) , intent(out) , optional :: msg
5282 logical(LK) :: failed
5283 end function
5284#endif
5285
5286#if RK2_ENABLED
5287 module function isFailedQuadQAWC_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5289 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK2
5290#endif
5291 use pm_kind, only: RKC => RK2
5292 procedure(real(RKC)) :: getFunc
5293 real(RKC) , intent(in) :: lb, ub
5294 real(RKC) , intent(out) :: integral
5295 type(wcauchy_type) , intent(in) :: help
5296 real(RKC) , intent(out) , optional :: abserr
5297 real(RKC) , intent(in) , optional :: abstol
5298 real(RKC) , intent(in) , optional :: reltol
5299 integer(IK) , intent(out) , optional :: neval
5300 integer(IK) , intent(out) , optional :: nint
5301 character(*, SK) , intent(out) , optional :: msg
5302 logical(LK) :: failed
5303 end function
5304#endif
5305
5306#if RK1_ENABLED
5307 module function isFailedQuadQAWC_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5309 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK1
5310#endif
5311 use pm_kind, only: RKC => RK1
5312 procedure(real(RKC)) :: getFunc
5313 real(RKC) , intent(in) :: lb, ub
5314 real(RKC) , intent(out) :: integral
5315 type(wcauchy_type) , intent(in) :: help
5316 real(RKC) , intent(out) , optional :: abserr
5317 real(RKC) , intent(in) , optional :: abstol
5318 real(RKC) , intent(in) , optional :: reltol
5319 integer(IK) , intent(out) , optional :: neval
5320 integer(IK) , intent(out) , optional :: nint
5321 character(*, SK) , intent(out) , optional :: msg
5322 logical(LK) :: failed
5323 end function
5324#endif
5325
5326 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5327
5328 end interface
5329
5330!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5331
5568
5569!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5570
5571 ! QAGD_GK15
5572
5573 interface getQuadErr
5574
5575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5576
5577#if RK5_ENABLED
5578 module function QAGD_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK5
5581#endif
5582 use pm_kind, only: RKC => RK5
5583 procedure(real(RKC)) :: getFunc
5584 real(RKC) , intent(in) :: lb
5585 real(RKC) , intent(in) :: ub
5586 real(RKC) , intent(in) :: abstol
5587 real(RKC) , intent(in) :: reltol
5588 type(GK15_type) , intent(in) :: qrule
5589 real(RKC) , intent(out) :: integral, abserr
5590 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5591 integer(IK) , intent(out) , contiguous :: sindex(:)
5592 integer(IK) , intent(out) :: neval
5593 integer(IK) , intent(out) :: nint
5594 integer(IK) :: err
5595 end function
5596#endif
5597
5598#if RK4_ENABLED
5599 module function QAGD_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK4
5602#endif
5603 use pm_kind, only: RKC => RK4
5604 procedure(real(RKC)) :: getFunc
5605 real(RKC) , intent(in) :: lb
5606 real(RKC) , intent(in) :: ub
5607 real(RKC) , intent(in) :: abstol
5608 real(RKC) , intent(in) :: reltol
5609 type(GK15_type) , intent(in) :: qrule
5610 real(RKC) , intent(out) :: integral, abserr
5611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5612 integer(IK) , intent(out) , contiguous :: sindex(:)
5613 integer(IK) , intent(out) :: neval
5614 integer(IK) , intent(out) :: nint
5615 integer(IK) :: err
5616 end function
5617#endif
5618
5619#if RK3_ENABLED
5620 module function QAGD_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK3
5623#endif
5624 use pm_kind, only: RKC => RK3
5625 procedure(real(RKC)) :: getFunc
5626 real(RKC) , intent(in) :: lb
5627 real(RKC) , intent(in) :: ub
5628 real(RKC) , intent(in) :: abstol
5629 real(RKC) , intent(in) :: reltol
5630 type(GK15_type) , intent(in) :: qrule
5631 real(RKC) , intent(out) :: integral, abserr
5632 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5633 integer(IK) , intent(out) , contiguous :: sindex(:)
5634 integer(IK) , intent(out) :: neval
5635 integer(IK) , intent(out) :: nint
5636 integer(IK) :: err
5637 end function
5638#endif
5639
5640#if RK2_ENABLED
5641 module function QAGD_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5643 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK2
5644#endif
5645 use pm_kind, only: RKC => RK2
5646 procedure(real(RKC)) :: getFunc
5647 real(RKC) , intent(in) :: lb
5648 real(RKC) , intent(in) :: ub
5649 real(RKC) , intent(in) :: abstol
5650 real(RKC) , intent(in) :: reltol
5651 type(GK15_type) , intent(in) :: qrule
5652 real(RKC) , intent(out) :: integral, abserr
5653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5654 integer(IK) , intent(out) , contiguous :: sindex(:)
5655 integer(IK) , intent(out) :: neval
5656 integer(IK) , intent(out) :: nint
5657 integer(IK) :: err
5658 end function
5659#endif
5660
5661#if RK1_ENABLED
5662 module function QAGD_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK1
5665#endif
5666 use pm_kind, only: RKC => RK1
5667 procedure(real(RKC)) :: getFunc
5668 real(RKC) , intent(in) :: lb
5669 real(RKC) , intent(in) :: ub
5670 real(RKC) , intent(in) :: abstol
5671 real(RKC) , intent(in) :: reltol
5672 type(GK15_type) , intent(in) :: qrule
5673 real(RKC) , intent(out) :: integral, abserr
5674 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5675 integer(IK) , intent(out) , contiguous :: sindex(:)
5676 integer(IK) , intent(out) :: neval
5677 integer(IK) , intent(out) :: nint
5678 integer(IK) :: err
5679 end function
5680#endif
5681
5682 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5683
5684#if RK5_ENABLED
5685 module function QAGD_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5687 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK5
5688#endif
5689 use pm_kind, only: RKC => RK5
5690 procedure(real(RKC)) :: getFunc
5691 real(RKC) , intent(in) :: lb
5692 type(pinf_type) , intent(in) :: ub
5693 real(RKC) , intent(in) :: abstol
5694 real(RKC) , intent(in) :: reltol
5695 type(GK15_type) , intent(in) :: qrule
5696 real(RKC) , intent(out) :: integral, abserr
5697 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5698 integer(IK) , intent(out) , contiguous :: sindex(:)
5699 integer(IK) , intent(out) :: neval
5700 integer(IK) , intent(out) :: nint
5701 integer(IK) :: err
5702 end function
5703#endif
5704
5705#if RK4_ENABLED
5706 module function QAGD_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK4
5709#endif
5710 use pm_kind, only: RKC => RK4
5711 procedure(real(RKC)) :: getFunc
5712 real(RKC) , intent(in) :: lb
5713 type(pinf_type) , intent(in) :: ub
5714 real(RKC) , intent(in) :: abstol
5715 real(RKC) , intent(in) :: reltol
5716 type(GK15_type) , intent(in) :: qrule
5717 real(RKC) , intent(out) :: integral, abserr
5718 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5719 integer(IK) , intent(out) , contiguous :: sindex(:)
5720 integer(IK) , intent(out) :: neval
5721 integer(IK) , intent(out) :: nint
5722 integer(IK) :: err
5723 end function
5724#endif
5725
5726#if RK3_ENABLED
5727 module function QAGD_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5729 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK3
5730#endif
5731 use pm_kind, only: RKC => RK3
5732 procedure(real(RKC)) :: getFunc
5733 real(RKC) , intent(in) :: lb
5734 type(pinf_type) , intent(in) :: ub
5735 real(RKC) , intent(in) :: abstol
5736 real(RKC) , intent(in) :: reltol
5737 type(GK15_type) , intent(in) :: qrule
5738 real(RKC) , intent(out) :: integral, abserr
5739 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5740 integer(IK) , intent(out) , contiguous :: sindex(:)
5741 integer(IK) , intent(out) :: neval
5742 integer(IK) , intent(out) :: nint
5743 integer(IK) :: err
5744 end function
5745#endif
5746
5747#if RK2_ENABLED
5748 module function QAGD_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK2
5751#endif
5752 use pm_kind, only: RKC => RK2
5753 procedure(real(RKC)) :: getFunc
5754 real(RKC) , intent(in) :: lb
5755 type(pinf_type) , intent(in) :: ub
5756 real(RKC) , intent(in) :: abstol
5757 real(RKC) , intent(in) :: reltol
5758 type(GK15_type) , intent(in) :: qrule
5759 real(RKC) , intent(out) :: integral, abserr
5760 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5761 integer(IK) , intent(out) , contiguous :: sindex(:)
5762 integer(IK) , intent(out) :: neval
5763 integer(IK) , intent(out) :: nint
5764 integer(IK) :: err
5765 end function
5766#endif
5767
5768#if RK1_ENABLED
5769 module function QAGD_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5771 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK1
5772#endif
5773 use pm_kind, only: RKC => RK1
5774 procedure(real(RKC)) :: getFunc
5775 real(RKC) , intent(in) :: lb
5776 type(pinf_type) , intent(in) :: ub
5777 real(RKC) , intent(in) :: abstol
5778 real(RKC) , intent(in) :: reltol
5779 type(GK15_type) , intent(in) :: qrule
5780 real(RKC) , intent(out) :: integral, abserr
5781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5782 integer(IK) , intent(out) , contiguous :: sindex(:)
5783 integer(IK) , intent(out) :: neval
5784 integer(IK) , intent(out) :: nint
5785 integer(IK) :: err
5786 end function
5787#endif
5788
5789 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5790
5791#if RK5_ENABLED
5792 module function QAGD_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK5
5795#endif
5796 use pm_kind, only: RKC => RK5
5797 procedure(real(RKC)) :: getFunc
5798 type(ninf_type) , intent(in) :: lb
5799 real(RKC) , intent(in) :: ub
5800 real(RKC) , intent(in) :: abstol
5801 real(RKC) , intent(in) :: reltol
5802 type(GK15_type) , intent(in) :: qrule
5803 real(RKC) , intent(out) :: integral, abserr
5804 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5805 integer(IK) , intent(out) , contiguous :: sindex(:)
5806 integer(IK) , intent(out) :: neval
5807 integer(IK) , intent(out) :: nint
5808 integer(IK) :: err
5809 end function
5810#endif
5811
5812#if RK4_ENABLED
5813 module function QAGD_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5815 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK4
5816#endif
5817 use pm_kind, only: RKC => RK4
5818 procedure(real(RKC)) :: getFunc
5819 type(ninf_type) , intent(in) :: lb
5820 real(RKC) , intent(in) :: ub
5821 real(RKC) , intent(in) :: abstol
5822 real(RKC) , intent(in) :: reltol
5823 type(GK15_type) , intent(in) :: qrule
5824 real(RKC) , intent(out) :: integral, abserr
5825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5826 integer(IK) , intent(out) , contiguous :: sindex(:)
5827 integer(IK) , intent(out) :: neval
5828 integer(IK) , intent(out) :: nint
5829 integer(IK) :: err
5830 end function
5831#endif
5832
5833#if RK3_ENABLED
5834 module function QAGD_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK3
5837#endif
5838 use pm_kind, only: RKC => RK3
5839 procedure(real(RKC)) :: getFunc
5840 type(ninf_type) , intent(in) :: lb
5841 real(RKC) , intent(in) :: ub
5842 real(RKC) , intent(in) :: abstol
5843 real(RKC) , intent(in) :: reltol
5844 type(GK15_type) , intent(in) :: qrule
5845 real(RKC) , intent(out) :: integral, abserr
5846 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5847 integer(IK) , intent(out) , contiguous :: sindex(:)
5848 integer(IK) , intent(out) :: neval
5849 integer(IK) , intent(out) :: nint
5850 integer(IK) :: err
5851 end function
5852#endif
5853
5854#if RK2_ENABLED
5855 module function QAGD_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5857 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK2
5858#endif
5859 use pm_kind, only: RKC => RK2
5860 procedure(real(RKC)) :: getFunc
5861 type(ninf_type) , intent(in) :: lb
5862 real(RKC) , intent(in) :: ub
5863 real(RKC) , intent(in) :: abstol
5864 real(RKC) , intent(in) :: reltol
5865 type(GK15_type) , intent(in) :: qrule
5866 real(RKC) , intent(out) :: integral, abserr
5867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5868 integer(IK) , intent(out) , contiguous :: sindex(:)
5869 integer(IK) , intent(out) :: neval
5870 integer(IK) , intent(out) :: nint
5871 integer(IK) :: err
5872 end function
5873#endif
5874
5875#if RK1_ENABLED
5876 module function QAGD_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5878 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK1
5879#endif
5880 use pm_kind, only: RKC => RK1
5881 procedure(real(RKC)) :: getFunc
5882 type(ninf_type) , intent(in) :: lb
5883 real(RKC) , intent(in) :: ub
5884 real(RKC) , intent(in) :: abstol
5885 real(RKC) , intent(in) :: reltol
5886 type(GK15_type) , intent(in) :: qrule
5887 real(RKC) , intent(out) :: integral, abserr
5888 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5889 integer(IK) , intent(out) , contiguous :: sindex(:)
5890 integer(IK) , intent(out) :: neval
5891 integer(IK) , intent(out) :: nint
5892 integer(IK) :: err
5893 end function
5894#endif
5895
5896 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5897
5898#if RK5_ENABLED
5899 module function QAGD_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5901 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK5
5902#endif
5903 use pm_kind, only: RKC => RK5
5904 procedure(real(RKC)) :: getFunc
5905 type(ninf_type) , intent(in) :: lb
5906 type(pinf_type) , intent(in) :: ub
5907 real(RKC) , intent(in) :: abstol
5908 real(RKC) , intent(in) :: reltol
5909 type(GK15_type) , intent(in) :: qrule
5910 real(RKC) , intent(out) :: integral, abserr
5911 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5912 integer(IK) , intent(out) , contiguous :: sindex(:)
5913 integer(IK) , intent(out) :: neval
5914 integer(IK) , intent(out) :: nint
5915 integer(IK) :: err
5916 end function
5917#endif
5918
5919#if RK4_ENABLED
5920 module function QAGD_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK4
5923#endif
5924 use pm_kind, only: RKC => RK4
5925 procedure(real(RKC)) :: getFunc
5926 type(ninf_type) , intent(in) :: lb
5927 type(pinf_type) , intent(in) :: ub
5928 real(RKC) , intent(in) :: abstol
5929 real(RKC) , intent(in) :: reltol
5930 type(GK15_type) , intent(in) :: qrule
5931 real(RKC) , intent(out) :: integral, abserr
5932 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5933 integer(IK) , intent(out) , contiguous :: sindex(:)
5934 integer(IK) , intent(out) :: neval
5935 integer(IK) , intent(out) :: nint
5936 integer(IK) :: err
5937 end function
5938#endif
5939
5940#if RK3_ENABLED
5941 module function QAGD_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5943 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK3
5944#endif
5945 use pm_kind, only: RKC => RK3
5946 procedure(real(RKC)) :: getFunc
5947 type(ninf_type) , intent(in) :: lb
5948 type(pinf_type) , intent(in) :: ub
5949 real(RKC) , intent(in) :: abstol
5950 real(RKC) , intent(in) :: reltol
5951 type(GK15_type) , intent(in) :: qrule
5952 real(RKC) , intent(out) :: integral, abserr
5953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5954 integer(IK) , intent(out) , contiguous :: sindex(:)
5955 integer(IK) , intent(out) :: neval
5956 integer(IK) , intent(out) :: nint
5957 integer(IK) :: err
5958 end function
5959#endif
5960
5961#if RK2_ENABLED
5962 module function QAGD_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK2
5965#endif
5966 use pm_kind, only: RKC => RK2
5967 procedure(real(RKC)) :: getFunc
5968 type(ninf_type) , intent(in) :: lb
5969 type(pinf_type) , intent(in) :: ub
5970 real(RKC) , intent(in) :: abstol
5971 real(RKC) , intent(in) :: reltol
5972 type(GK15_type) , intent(in) :: qrule
5973 real(RKC) , intent(out) :: integral, abserr
5974 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5975 integer(IK) , intent(out) , contiguous :: sindex(:)
5976 integer(IK) , intent(out) :: neval
5977 integer(IK) , intent(out) :: nint
5978 integer(IK) :: err
5979 end function
5980#endif
5981
5982#if RK1_ENABLED
5983 module function QAGD_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5985 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK1
5986#endif
5987 use pm_kind, only: RKC => RK1
5988 procedure(real(RKC)) :: getFunc
5989 type(ninf_type) , intent(in) :: lb
5990 type(pinf_type) , intent(in) :: ub
5991 real(RKC) , intent(in) :: abstol
5992 real(RKC) , intent(in) :: reltol
5993 type(GK15_type) , intent(in) :: qrule
5994 real(RKC) , intent(out) :: integral, abserr
5995 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5996 integer(IK) , intent(out) , contiguous :: sindex(:)
5997 integer(IK) , intent(out) :: neval
5998 integer(IK) , intent(out) :: nint
5999 integer(IK) :: err
6000 end function
6001#endif
6002
6003 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6004
6005 end interface
6006
6007 ! QAGD_GK21
6008
6009 interface getQuadErr
6010
6011 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6012
6013#if RK5_ENABLED
6014 module function QAGD_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK5
6017#endif
6018 use pm_kind, only: RKC => RK5
6019 procedure(real(RKC)) :: getFunc
6020 real(RKC) , intent(in) :: lb
6021 real(RKC) , intent(in) :: ub
6022 real(RKC) , intent(in) :: abstol
6023 real(RKC) , intent(in) :: reltol
6024 type(GK21_type) , intent(in) :: qrule
6025 real(RKC) , intent(out) :: integral, abserr
6026 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6027 integer(IK) , intent(out) , contiguous :: sindex(:)
6028 integer(IK) , intent(out) :: neval
6029 integer(IK) , intent(out) :: nint
6030 integer(IK) :: err
6031 end function
6032#endif
6033
6034#if RK4_ENABLED
6035 module function QAGD_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6037 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK4
6038#endif
6039 use pm_kind, only: RKC => RK4
6040 procedure(real(RKC)) :: getFunc
6041 real(RKC) , intent(in) :: lb
6042 real(RKC) , intent(in) :: ub
6043 real(RKC) , intent(in) :: abstol
6044 real(RKC) , intent(in) :: reltol
6045 type(GK21_type) , intent(in) :: qrule
6046 real(RKC) , intent(out) :: integral, abserr
6047 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6048 integer(IK) , intent(out) , contiguous :: sindex(:)
6049 integer(IK) , intent(out) :: neval
6050 integer(IK) , intent(out) :: nint
6051 integer(IK) :: err
6052 end function
6053#endif
6054
6055#if RK3_ENABLED
6056 module function QAGD_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK3
6059#endif
6060 use pm_kind, only: RKC => RK3
6061 procedure(real(RKC)) :: getFunc
6062 real(RKC) , intent(in) :: lb
6063 real(RKC) , intent(in) :: ub
6064 real(RKC) , intent(in) :: abstol
6065 real(RKC) , intent(in) :: reltol
6066 type(GK21_type) , intent(in) :: qrule
6067 real(RKC) , intent(out) :: integral, abserr
6068 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6069 integer(IK) , intent(out) , contiguous :: sindex(:)
6070 integer(IK) , intent(out) :: neval
6071 integer(IK) , intent(out) :: nint
6072 integer(IK) :: err
6073 end function
6074#endif
6075
6076#if RK2_ENABLED
6077 module function QAGD_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6079 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK2
6080#endif
6081 use pm_kind, only: RKC => RK2
6082 procedure(real(RKC)) :: getFunc
6083 real(RKC) , intent(in) :: lb
6084 real(RKC) , intent(in) :: ub
6085 real(RKC) , intent(in) :: abstol
6086 real(RKC) , intent(in) :: reltol
6087 type(GK21_type) , intent(in) :: qrule
6088 real(RKC) , intent(out) :: integral, abserr
6089 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6090 integer(IK) , intent(out) , contiguous :: sindex(:)
6091 integer(IK) , intent(out) :: neval
6092 integer(IK) , intent(out) :: nint
6093 integer(IK) :: err
6094 end function
6095#endif
6096
6097#if RK1_ENABLED
6098 module function QAGD_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK1
6101#endif
6102 use pm_kind, only: RKC => RK1
6103 procedure(real(RKC)) :: getFunc
6104 real(RKC) , intent(in) :: lb
6105 real(RKC) , intent(in) :: ub
6106 real(RKC) , intent(in) :: abstol
6107 real(RKC) , intent(in) :: reltol
6108 type(GK21_type) , intent(in) :: qrule
6109 real(RKC) , intent(out) :: integral, abserr
6110 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6111 integer(IK) , intent(out) , contiguous :: sindex(:)
6112 integer(IK) , intent(out) :: neval
6113 integer(IK) , intent(out) :: nint
6114 integer(IK) :: err
6115 end function
6116#endif
6117
6118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6119
6120#if RK5_ENABLED
6121 module function QAGD_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6123 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK5
6124#endif
6125 use pm_kind, only: RKC => RK5
6126 procedure(real(RKC)) :: getFunc
6127 real(RKC) , intent(in) :: lb
6128 type(pinf_type) , intent(in) :: ub
6129 real(RKC) , intent(in) :: abstol
6130 real(RKC) , intent(in) :: reltol
6131 type(GK21_type) , intent(in) :: qrule
6132 real(RKC) , intent(out) :: integral, abserr
6133 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6134 integer(IK) , intent(out) , contiguous :: sindex(:)
6135 integer(IK) , intent(out) :: neval
6136 integer(IK) , intent(out) :: nint
6137 integer(IK) :: err
6138 end function
6139#endif
6140
6141#if RK4_ENABLED
6142 module function QAGD_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK4
6145#endif
6146 use pm_kind, only: RKC => RK4
6147 procedure(real(RKC)) :: getFunc
6148 real(RKC) , intent(in) :: lb
6149 type(pinf_type) , intent(in) :: ub
6150 real(RKC) , intent(in) :: abstol
6151 real(RKC) , intent(in) :: reltol
6152 type(GK21_type) , intent(in) :: qrule
6153 real(RKC) , intent(out) :: integral, abserr
6154 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6155 integer(IK) , intent(out) , contiguous :: sindex(:)
6156 integer(IK) , intent(out) :: neval
6157 integer(IK) , intent(out) :: nint
6158 integer(IK) :: err
6159 end function
6160#endif
6161
6162#if RK3_ENABLED
6163 module function QAGD_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6165 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK3
6166#endif
6167 use pm_kind, only: RKC => RK3
6168 procedure(real(RKC)) :: getFunc
6169 real(RKC) , intent(in) :: lb
6170 type(pinf_type) , intent(in) :: ub
6171 real(RKC) , intent(in) :: abstol
6172 real(RKC) , intent(in) :: reltol
6173 type(GK21_type) , intent(in) :: qrule
6174 real(RKC) , intent(out) :: integral, abserr
6175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6176 integer(IK) , intent(out) , contiguous :: sindex(:)
6177 integer(IK) , intent(out) :: neval
6178 integer(IK) , intent(out) :: nint
6179 integer(IK) :: err
6180 end function
6181#endif
6182
6183#if RK2_ENABLED
6184 module function QAGD_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6186 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK2
6187#endif
6188 use pm_kind, only: RKC => RK2
6189 procedure(real(RKC)) :: getFunc
6190 real(RKC) , intent(in) :: lb
6191 type(pinf_type) , intent(in) :: ub
6192 real(RKC) , intent(in) :: abstol
6193 real(RKC) , intent(in) :: reltol
6194 type(GK21_type) , intent(in) :: qrule
6195 real(RKC) , intent(out) :: integral, abserr
6196 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6197 integer(IK) , intent(out) , contiguous :: sindex(:)
6198 integer(IK) , intent(out) :: neval
6199 integer(IK) , intent(out) :: nint
6200 integer(IK) :: err
6201 end function
6202#endif
6203
6204#if RK1_ENABLED
6205 module function QAGD_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6207 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK1
6208#endif
6209 use pm_kind, only: RKC => RK1
6210 procedure(real(RKC)) :: getFunc
6211 real(RKC) , intent(in) :: lb
6212 type(pinf_type) , intent(in) :: ub
6213 real(RKC) , intent(in) :: abstol
6214 real(RKC) , intent(in) :: reltol
6215 type(GK21_type) , intent(in) :: qrule
6216 real(RKC) , intent(out) :: integral, abserr
6217 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6218 integer(IK) , intent(out) , contiguous :: sindex(:)
6219 integer(IK) , intent(out) :: neval
6220 integer(IK) , intent(out) :: nint
6221 integer(IK) :: err
6222 end function
6223#endif
6224
6225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6226
6227#if RK5_ENABLED
6228 module function QAGD_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6230 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK5
6231#endif
6232 use pm_kind, only: RKC => RK5
6233 procedure(real(RKC)) :: getFunc
6234 type(ninf_type) , intent(in) :: lb
6235 real(RKC) , intent(in) :: ub
6236 real(RKC) , intent(in) :: abstol
6237 real(RKC) , intent(in) :: reltol
6238 type(GK21_type) , intent(in) :: qrule
6239 real(RKC) , intent(out) :: integral, abserr
6240 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6241 integer(IK) , intent(out) , contiguous :: sindex(:)
6242 integer(IK) , intent(out) :: neval
6243 integer(IK) , intent(out) :: nint
6244 integer(IK) :: err
6245 end function
6246#endif
6247
6248#if RK4_ENABLED
6249 module function QAGD_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6251 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK4
6252#endif
6253 use pm_kind, only: RKC => RK4
6254 procedure(real(RKC)) :: getFunc
6255 type(ninf_type) , intent(in) :: lb
6256 real(RKC) , intent(in) :: ub
6257 real(RKC) , intent(in) :: abstol
6258 real(RKC) , intent(in) :: reltol
6259 type(GK21_type) , intent(in) :: qrule
6260 real(RKC) , intent(out) :: integral, abserr
6261 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6262 integer(IK) , intent(out) , contiguous :: sindex(:)
6263 integer(IK) , intent(out) :: neval
6264 integer(IK) , intent(out) :: nint
6265 integer(IK) :: err
6266 end function
6267#endif
6268
6269#if RK3_ENABLED
6270 module function QAGD_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK3
6273#endif
6274 use pm_kind, only: RKC => RK3
6275 procedure(real(RKC)) :: getFunc
6276 type(ninf_type) , intent(in) :: lb
6277 real(RKC) , intent(in) :: ub
6278 real(RKC) , intent(in) :: abstol
6279 real(RKC) , intent(in) :: reltol
6280 type(GK21_type) , intent(in) :: qrule
6281 real(RKC) , intent(out) :: integral, abserr
6282 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6283 integer(IK) , intent(out) , contiguous :: sindex(:)
6284 integer(IK) , intent(out) :: neval
6285 integer(IK) , intent(out) :: nint
6286 integer(IK) :: err
6287 end function
6288#endif
6289
6290#if RK2_ENABLED
6291 module function QAGD_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6293 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK2
6294#endif
6295 use pm_kind, only: RKC => RK2
6296 procedure(real(RKC)) :: getFunc
6297 type(ninf_type) , intent(in) :: lb
6298 real(RKC) , intent(in) :: ub
6299 real(RKC) , intent(in) :: abstol
6300 real(RKC) , intent(in) :: reltol
6301 type(GK21_type) , intent(in) :: qrule
6302 real(RKC) , intent(out) :: integral, abserr
6303 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6304 integer(IK) , intent(out) , contiguous :: sindex(:)
6305 integer(IK) , intent(out) :: neval
6306 integer(IK) , intent(out) :: nint
6307 integer(IK) :: err
6308 end function
6309#endif
6310
6311#if RK1_ENABLED
6312 module function QAGD_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK1
6315#endif
6316 use pm_kind, only: RKC => RK1
6317 procedure(real(RKC)) :: getFunc
6318 type(ninf_type) , intent(in) :: lb
6319 real(RKC) , intent(in) :: ub
6320 real(RKC) , intent(in) :: abstol
6321 real(RKC) , intent(in) :: reltol
6322 type(GK21_type) , intent(in) :: qrule
6323 real(RKC) , intent(out) :: integral, abserr
6324 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6325 integer(IK) , intent(out) , contiguous :: sindex(:)
6326 integer(IK) , intent(out) :: neval
6327 integer(IK) , intent(out) :: nint
6328 integer(IK) :: err
6329 end function
6330#endif
6331
6332 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6333
6334#if RK5_ENABLED
6335 module function QAGD_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6337 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK5
6338#endif
6339 use pm_kind, only: RKC => RK5
6340 procedure(real(RKC)) :: getFunc
6341 type(ninf_type) , intent(in) :: lb
6342 type(pinf_type) , intent(in) :: ub
6343 real(RKC) , intent(in) :: abstol
6344 real(RKC) , intent(in) :: reltol
6345 type(GK21_type) , intent(in) :: qrule
6346 real(RKC) , intent(out) :: integral, abserr
6347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6348 integer(IK) , intent(out) , contiguous :: sindex(:)
6349 integer(IK) , intent(out) :: neval
6350 integer(IK) , intent(out) :: nint
6351 integer(IK) :: err
6352 end function
6353#endif
6354
6355#if RK4_ENABLED
6356 module function QAGD_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6358 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK4
6359#endif
6360 use pm_kind, only: RKC => RK4
6361 procedure(real(RKC)) :: getFunc
6362 type(ninf_type) , intent(in) :: lb
6363 type(pinf_type) , intent(in) :: ub
6364 real(RKC) , intent(in) :: abstol
6365 real(RKC) , intent(in) :: reltol
6366 type(GK21_type) , intent(in) :: qrule
6367 real(RKC) , intent(out) :: integral, abserr
6368 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6369 integer(IK) , intent(out) , contiguous :: sindex(:)
6370 integer(IK) , intent(out) :: neval
6371 integer(IK) , intent(out) :: nint
6372 integer(IK) :: err
6373 end function
6374#endif
6375
6376#if RK3_ENABLED
6377 module function QAGD_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6379 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK3
6380#endif
6381 use pm_kind, only: RKC => RK3
6382 procedure(real(RKC)) :: getFunc
6383 type(ninf_type) , intent(in) :: lb
6384 type(pinf_type) , intent(in) :: ub
6385 real(RKC) , intent(in) :: abstol
6386 real(RKC) , intent(in) :: reltol
6387 type(GK21_type) , intent(in) :: qrule
6388 real(RKC) , intent(out) :: integral, abserr
6389 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6390 integer(IK) , intent(out) , contiguous :: sindex(:)
6391 integer(IK) , intent(out) :: neval
6392 integer(IK) , intent(out) :: nint
6393 integer(IK) :: err
6394 end function
6395#endif
6396
6397#if RK2_ENABLED
6398 module function QAGD_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6400 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK2
6401#endif
6402 use pm_kind, only: RKC => RK2
6403 procedure(real(RKC)) :: getFunc
6404 type(ninf_type) , intent(in) :: lb
6405 type(pinf_type) , intent(in) :: ub
6406 real(RKC) , intent(in) :: abstol
6407 real(RKC) , intent(in) :: reltol
6408 type(GK21_type) , intent(in) :: qrule
6409 real(RKC) , intent(out) :: integral, abserr
6410 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6411 integer(IK) , intent(out) , contiguous :: sindex(:)
6412 integer(IK) , intent(out) :: neval
6413 integer(IK) , intent(out) :: nint
6414 integer(IK) :: err
6415 end function
6416#endif
6417
6418#if RK1_ENABLED
6419 module function QAGD_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6421 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK1
6422#endif
6423 use pm_kind, only: RKC => RK1
6424 procedure(real(RKC)) :: getFunc
6425 type(ninf_type) , intent(in) :: lb
6426 type(pinf_type) , intent(in) :: ub
6427 real(RKC) , intent(in) :: abstol
6428 real(RKC) , intent(in) :: reltol
6429 type(GK21_type) , intent(in) :: qrule
6430 real(RKC) , intent(out) :: integral, abserr
6431 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6432 integer(IK) , intent(out) , contiguous :: sindex(:)
6433 integer(IK) , intent(out) :: neval
6434 integer(IK) , intent(out) :: nint
6435 integer(IK) :: err
6436 end function
6437#endif
6438
6439 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6440
6441 end interface
6442
6443 ! QAGD_GK31
6444
6445 interface getQuadErr
6446
6447 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6448
6449#if RK5_ENABLED
6450 module function QAGD_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6452 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK5
6453#endif
6454 use pm_kind, only: RKC => RK5
6455 procedure(real(RKC)) :: getFunc
6456 real(RKC) , intent(in) :: lb
6457 real(RKC) , intent(in) :: ub
6458 real(RKC) , intent(in) :: abstol
6459 real(RKC) , intent(in) :: reltol
6460 type(GK31_type) , intent(in) :: qrule
6461 real(RKC) , intent(out) :: integral, abserr
6462 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6463 integer(IK) , intent(out) , contiguous :: sindex(:)
6464 integer(IK) , intent(out) :: neval
6465 integer(IK) , intent(out) :: nint
6466 integer(IK) :: err
6467 end function
6468#endif
6469
6470#if RK4_ENABLED
6471 module function QAGD_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6473 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK4
6474#endif
6475 use pm_kind, only: RKC => RK4
6476 procedure(real(RKC)) :: getFunc
6477 real(RKC) , intent(in) :: lb
6478 real(RKC) , intent(in) :: ub
6479 real(RKC) , intent(in) :: abstol
6480 real(RKC) , intent(in) :: reltol
6481 type(GK31_type) , intent(in) :: qrule
6482 real(RKC) , intent(out) :: integral, abserr
6483 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6484 integer(IK) , intent(out) , contiguous :: sindex(:)
6485 integer(IK) , intent(out) :: neval
6486 integer(IK) , intent(out) :: nint
6487 integer(IK) :: err
6488 end function
6489#endif
6490
6491#if RK3_ENABLED
6492 module function QAGD_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK3
6495#endif
6496 use pm_kind, only: RKC => RK3
6497 procedure(real(RKC)) :: getFunc
6498 real(RKC) , intent(in) :: lb
6499 real(RKC) , intent(in) :: ub
6500 real(RKC) , intent(in) :: abstol
6501 real(RKC) , intent(in) :: reltol
6502 type(GK31_type) , intent(in) :: qrule
6503 real(RKC) , intent(out) :: integral, abserr
6504 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6505 integer(IK) , intent(out) , contiguous :: sindex(:)
6506 integer(IK) , intent(out) :: neval
6507 integer(IK) , intent(out) :: nint
6508 integer(IK) :: err
6509 end function
6510#endif
6511
6512#if RK2_ENABLED
6513 module function QAGD_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6515 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK2
6516#endif
6517 use pm_kind, only: RKC => RK2
6518 procedure(real(RKC)) :: getFunc
6519 real(RKC) , intent(in) :: lb
6520 real(RKC) , intent(in) :: ub
6521 real(RKC) , intent(in) :: abstol
6522 real(RKC) , intent(in) :: reltol
6523 type(GK31_type) , intent(in) :: qrule
6524 real(RKC) , intent(out) :: integral, abserr
6525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6526 integer(IK) , intent(out) , contiguous :: sindex(:)
6527 integer(IK) , intent(out) :: neval
6528 integer(IK) , intent(out) :: nint
6529 integer(IK) :: err
6530 end function
6531#endif
6532
6533#if RK1_ENABLED
6534 module function QAGD_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6536 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK1
6537#endif
6538 use pm_kind, only: RKC => RK1
6539 procedure(real(RKC)) :: getFunc
6540 real(RKC) , intent(in) :: lb
6541 real(RKC) , intent(in) :: ub
6542 real(RKC) , intent(in) :: abstol
6543 real(RKC) , intent(in) :: reltol
6544 type(GK31_type) , intent(in) :: qrule
6545 real(RKC) , intent(out) :: integral, abserr
6546 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6547 integer(IK) , intent(out) , contiguous :: sindex(:)
6548 integer(IK) , intent(out) :: neval
6549 integer(IK) , intent(out) :: nint
6550 integer(IK) :: err
6551 end function
6552#endif
6553
6554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6555
6556#if RK5_ENABLED
6557 module function QAGD_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6559 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK5
6560#endif
6561 use pm_kind, only: RKC => RK5
6562 procedure(real(RKC)) :: getFunc
6563 real(RKC) , intent(in) :: lb
6564 type(pinf_type) , intent(in) :: ub
6565 real(RKC) , intent(in) :: abstol
6566 real(RKC) , intent(in) :: reltol
6567 type(GK31_type) , intent(in) :: qrule
6568 real(RKC) , intent(out) :: integral, abserr
6569 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6570 integer(IK) , intent(out) , contiguous :: sindex(:)
6571 integer(IK) , intent(out) :: neval
6572 integer(IK) , intent(out) :: nint
6573 integer(IK) :: err
6574 end function
6575#endif
6576
6577#if RK4_ENABLED
6578 module function QAGD_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK4
6581#endif
6582 use pm_kind, only: RKC => RK4
6583 procedure(real(RKC)) :: getFunc
6584 real(RKC) , intent(in) :: lb
6585 type(pinf_type) , intent(in) :: ub
6586 real(RKC) , intent(in) :: abstol
6587 real(RKC) , intent(in) :: reltol
6588 type(GK31_type) , intent(in) :: qrule
6589 real(RKC) , intent(out) :: integral, abserr
6590 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6591 integer(IK) , intent(out) , contiguous :: sindex(:)
6592 integer(IK) , intent(out) :: neval
6593 integer(IK) , intent(out) :: nint
6594 integer(IK) :: err
6595 end function
6596#endif
6597
6598#if RK3_ENABLED
6599 module function QAGD_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK3
6602#endif
6603 use pm_kind, only: RKC => RK3
6604 procedure(real(RKC)) :: getFunc
6605 real(RKC) , intent(in) :: lb
6606 type(pinf_type) , intent(in) :: ub
6607 real(RKC) , intent(in) :: abstol
6608 real(RKC) , intent(in) :: reltol
6609 type(GK31_type) , intent(in) :: qrule
6610 real(RKC) , intent(out) :: integral, abserr
6611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6612 integer(IK) , intent(out) , contiguous :: sindex(:)
6613 integer(IK) , intent(out) :: neval
6614 integer(IK) , intent(out) :: nint
6615 integer(IK) :: err
6616 end function
6617#endif
6618
6619#if RK2_ENABLED
6620 module function QAGD_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK2
6623#endif
6624 use pm_kind, only: RKC => RK2
6625 procedure(real(RKC)) :: getFunc
6626 real(RKC) , intent(in) :: lb
6627 type(pinf_type) , intent(in) :: ub
6628 real(RKC) , intent(in) :: abstol
6629 real(RKC) , intent(in) :: reltol
6630 type(GK31_type) , intent(in) :: qrule
6631 real(RKC) , intent(out) :: integral, abserr
6632 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6633 integer(IK) , intent(out) , contiguous :: sindex(:)
6634 integer(IK) , intent(out) :: neval
6635 integer(IK) , intent(out) :: nint
6636 integer(IK) :: err
6637 end function
6638#endif
6639
6640#if RK1_ENABLED
6641 module function QAGD_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6643 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK1
6644#endif
6645 use pm_kind, only: RKC => RK1
6646 procedure(real(RKC)) :: getFunc
6647 real(RKC) , intent(in) :: lb
6648 type(pinf_type) , intent(in) :: ub
6649 real(RKC) , intent(in) :: abstol
6650 real(RKC) , intent(in) :: reltol
6651 type(GK31_type) , intent(in) :: qrule
6652 real(RKC) , intent(out) :: integral, abserr
6653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6654 integer(IK) , intent(out) , contiguous :: sindex(:)
6655 integer(IK) , intent(out) :: neval
6656 integer(IK) , intent(out) :: nint
6657 integer(IK) :: err
6658 end function
6659#endif
6660
6661 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6662
6663#if RK5_ENABLED
6664 module function QAGD_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6666 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK5
6667#endif
6668 use pm_kind, only: RKC => RK5
6669 procedure(real(RKC)) :: getFunc
6670 type(ninf_type) , intent(in) :: lb
6671 real(RKC) , intent(in) :: ub
6672 real(RKC) , intent(in) :: abstol
6673 real(RKC) , intent(in) :: reltol
6674 type(GK31_type) , intent(in) :: qrule
6675 real(RKC) , intent(out) :: integral, abserr
6676 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6677 integer(IK) , intent(out) , contiguous :: sindex(:)
6678 integer(IK) , intent(out) :: neval
6679 integer(IK) , intent(out) :: nint
6680 integer(IK) :: err
6681 end function
6682#endif
6683
6684#if RK4_ENABLED
6685 module function QAGD_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6687 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK4
6688#endif
6689 use pm_kind, only: RKC => RK4
6690 procedure(real(RKC)) :: getFunc
6691 type(ninf_type) , intent(in) :: lb
6692 real(RKC) , intent(in) :: ub
6693 real(RKC) , intent(in) :: abstol
6694 real(RKC) , intent(in) :: reltol
6695 type(GK31_type) , intent(in) :: qrule
6696 real(RKC) , intent(out) :: integral, abserr
6697 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6698 integer(IK) , intent(out) , contiguous :: sindex(:)
6699 integer(IK) , intent(out) :: neval
6700 integer(IK) , intent(out) :: nint
6701 integer(IK) :: err
6702 end function
6703#endif
6704
6705#if RK3_ENABLED
6706 module function QAGD_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK3
6709#endif
6710 use pm_kind, only: RKC => RK3
6711 procedure(real(RKC)) :: getFunc
6712 type(ninf_type) , intent(in) :: lb
6713 real(RKC) , intent(in) :: ub
6714 real(RKC) , intent(in) :: abstol
6715 real(RKC) , intent(in) :: reltol
6716 type(GK31_type) , intent(in) :: qrule
6717 real(RKC) , intent(out) :: integral, abserr
6718 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6719 integer(IK) , intent(out) , contiguous :: sindex(:)
6720 integer(IK) , intent(out) :: neval
6721 integer(IK) , intent(out) :: nint
6722 integer(IK) :: err
6723 end function
6724#endif
6725
6726#if RK2_ENABLED
6727 module function QAGD_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6729 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK2
6730#endif
6731 use pm_kind, only: RKC => RK2
6732 procedure(real(RKC)) :: getFunc
6733 type(ninf_type) , intent(in) :: lb
6734 real(RKC) , intent(in) :: ub
6735 real(RKC) , intent(in) :: abstol
6736 real(RKC) , intent(in) :: reltol
6737 type(GK31_type) , intent(in) :: qrule
6738 real(RKC) , intent(out) :: integral, abserr
6739 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6740 integer(IK) , intent(out) , contiguous :: sindex(:)
6741 integer(IK) , intent(out) :: neval
6742 integer(IK) , intent(out) :: nint
6743 integer(IK) :: err
6744 end function
6745#endif
6746
6747#if RK1_ENABLED
6748 module function QAGD_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK1
6751#endif
6752 use pm_kind, only: RKC => RK1
6753 procedure(real(RKC)) :: getFunc
6754 type(ninf_type) , intent(in) :: lb
6755 real(RKC) , intent(in) :: ub
6756 real(RKC) , intent(in) :: abstol
6757 real(RKC) , intent(in) :: reltol
6758 type(GK31_type) , intent(in) :: qrule
6759 real(RKC) , intent(out) :: integral, abserr
6760 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6761 integer(IK) , intent(out) , contiguous :: sindex(:)
6762 integer(IK) , intent(out) :: neval
6763 integer(IK) , intent(out) :: nint
6764 integer(IK) :: err
6765 end function
6766#endif
6767
6768 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6769
6770#if RK5_ENABLED
6771 module function QAGD_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6773 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK5
6774#endif
6775 use pm_kind, only: RKC => RK5
6776 procedure(real(RKC)) :: getFunc
6777 type(ninf_type) , intent(in) :: lb
6778 type(pinf_type) , intent(in) :: ub
6779 real(RKC) , intent(in) :: abstol
6780 real(RKC) , intent(in) :: reltol
6781 type(GK31_type) , intent(in) :: qrule
6782 real(RKC) , intent(out) :: integral, abserr
6783 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6784 integer(IK) , intent(out) , contiguous :: sindex(:)
6785 integer(IK) , intent(out) :: neval
6786 integer(IK) , intent(out) :: nint
6787 integer(IK) :: err
6788 end function
6789#endif
6790
6791#if RK4_ENABLED
6792 module function QAGD_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK4
6795#endif
6796 use pm_kind, only: RKC => RK4
6797 procedure(real(RKC)) :: getFunc
6798 type(ninf_type) , intent(in) :: lb
6799 type(pinf_type) , intent(in) :: ub
6800 real(RKC) , intent(in) :: abstol
6801 real(RKC) , intent(in) :: reltol
6802 type(GK31_type) , intent(in) :: qrule
6803 real(RKC) , intent(out) :: integral, abserr
6804 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6805 integer(IK) , intent(out) , contiguous :: sindex(:)
6806 integer(IK) , intent(out) :: neval
6807 integer(IK) , intent(out) :: nint
6808 integer(IK) :: err
6809 end function
6810#endif
6811
6812#if RK3_ENABLED
6813 module function QAGD_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6815 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK3
6816#endif
6817 use pm_kind, only: RKC => RK3
6818 procedure(real(RKC)) :: getFunc
6819 type(ninf_type) , intent(in) :: lb
6820 type(pinf_type) , intent(in) :: ub
6821 real(RKC) , intent(in) :: abstol
6822 real(RKC) , intent(in) :: reltol
6823 type(GK31_type) , intent(in) :: qrule
6824 real(RKC) , intent(out) :: integral, abserr
6825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6826 integer(IK) , intent(out) , contiguous :: sindex(:)
6827 integer(IK) , intent(out) :: neval
6828 integer(IK) , intent(out) :: nint
6829 integer(IK) :: err
6830 end function
6831#endif
6832
6833#if RK2_ENABLED
6834 module function QAGD_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK2
6837#endif
6838 use pm_kind, only: RKC => RK2
6839 procedure(real(RKC)) :: getFunc
6840 type(ninf_type) , intent(in) :: lb
6841 type(pinf_type) , intent(in) :: ub
6842 real(RKC) , intent(in) :: abstol
6843 real(RKC) , intent(in) :: reltol
6844 type(GK31_type) , intent(in) :: qrule
6845 real(RKC) , intent(out) :: integral, abserr
6846 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6847 integer(IK) , intent(out) , contiguous :: sindex(:)
6848 integer(IK) , intent(out) :: neval
6849 integer(IK) , intent(out) :: nint
6850 integer(IK) :: err
6851 end function
6852#endif
6853
6854#if RK1_ENABLED
6855 module function QAGD_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6857 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK1
6858#endif
6859 use pm_kind, only: RKC => RK1
6860 procedure(real(RKC)) :: getFunc
6861 type(ninf_type) , intent(in) :: lb
6862 type(pinf_type) , intent(in) :: ub
6863 real(RKC) , intent(in) :: abstol
6864 real(RKC) , intent(in) :: reltol
6865 type(GK31_type) , intent(in) :: qrule
6866 real(RKC) , intent(out) :: integral, abserr
6867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6868 integer(IK) , intent(out) , contiguous :: sindex(:)
6869 integer(IK) , intent(out) :: neval
6870 integer(IK) , intent(out) :: nint
6871 integer(IK) :: err
6872 end function
6873#endif
6874
6875 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6876
6877 end interface
6878
6879 ! QAGD_GK41
6880
6881 interface getQuadErr
6882
6883 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6884
6885#if RK5_ENABLED
6886 module function QAGD_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6888 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK5
6889#endif
6890 use pm_kind, only: RKC => RK5
6891 procedure(real(RKC)) :: getFunc
6892 real(RKC) , intent(in) :: lb
6893 real(RKC) , intent(in) :: ub
6894 real(RKC) , intent(in) :: abstol
6895 real(RKC) , intent(in) :: reltol
6896 type(GK41_type) , intent(in) :: qrule
6897 real(RKC) , intent(out) :: integral, abserr
6898 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6899 integer(IK) , intent(out) , contiguous :: sindex(:)
6900 integer(IK) , intent(out) :: neval
6901 integer(IK) , intent(out) :: nint
6902 integer(IK) :: err
6903 end function
6904#endif
6905
6906#if RK4_ENABLED
6907 module function QAGD_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6909 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK4
6910#endif
6911 use pm_kind, only: RKC => RK4
6912 procedure(real(RKC)) :: getFunc
6913 real(RKC) , intent(in) :: lb
6914 real(RKC) , intent(in) :: ub
6915 real(RKC) , intent(in) :: abstol
6916 real(RKC) , intent(in) :: reltol
6917 type(GK41_type) , intent(in) :: qrule
6918 real(RKC) , intent(out) :: integral, abserr
6919 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6920 integer(IK) , intent(out) , contiguous :: sindex(:)
6921 integer(IK) , intent(out) :: neval
6922 integer(IK) , intent(out) :: nint
6923 integer(IK) :: err
6924 end function
6925#endif
6926
6927#if RK3_ENABLED
6928 module function QAGD_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6930 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK3
6931#endif
6932 use pm_kind, only: RKC => RK3
6933 procedure(real(RKC)) :: getFunc
6934 real(RKC) , intent(in) :: lb
6935 real(RKC) , intent(in) :: ub
6936 real(RKC) , intent(in) :: abstol
6937 real(RKC) , intent(in) :: reltol
6938 type(GK41_type) , intent(in) :: qrule
6939 real(RKC) , intent(out) :: integral, abserr
6940 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6941 integer(IK) , intent(out) , contiguous :: sindex(:)
6942 integer(IK) , intent(out) :: neval
6943 integer(IK) , intent(out) :: nint
6944 integer(IK) :: err
6945 end function
6946#endif
6947
6948#if RK2_ENABLED
6949 module function QAGD_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6951 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK2
6952#endif
6953 use pm_kind, only: RKC => RK2
6954 procedure(real(RKC)) :: getFunc
6955 real(RKC) , intent(in) :: lb
6956 real(RKC) , intent(in) :: ub
6957 real(RKC) , intent(in) :: abstol
6958 real(RKC) , intent(in) :: reltol
6959 type(GK41_type) , intent(in) :: qrule
6960 real(RKC) , intent(out) :: integral, abserr
6961 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6962 integer(IK) , intent(out) , contiguous :: sindex(:)
6963 integer(IK) , intent(out) :: neval
6964 integer(IK) , intent(out) :: nint
6965 integer(IK) :: err
6966 end function
6967#endif
6968
6969#if RK1_ENABLED
6970 module function QAGD_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6972 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK1
6973#endif
6974 use pm_kind, only: RKC => RK1
6975 procedure(real(RKC)) :: getFunc
6976 real(RKC) , intent(in) :: lb
6977 real(RKC) , intent(in) :: ub
6978 real(RKC) , intent(in) :: abstol
6979 real(RKC) , intent(in) :: reltol
6980 type(GK41_type) , intent(in) :: qrule
6981 real(RKC) , intent(out) :: integral, abserr
6982 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6983 integer(IK) , intent(out) , contiguous :: sindex(:)
6984 integer(IK) , intent(out) :: neval
6985 integer(IK) , intent(out) :: nint
6986 integer(IK) :: err
6987 end function
6988#endif
6989
6990 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6991
6992#if RK5_ENABLED
6993 module function QAGD_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6995 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK5
6996#endif
6997 use pm_kind, only: RKC => RK5
6998 procedure(real(RKC)) :: getFunc
6999 real(RKC) , intent(in) :: lb
7000 type(pinf_type) , intent(in) :: ub
7001 real(RKC) , intent(in) :: abstol
7002 real(RKC) , intent(in) :: reltol
7003 type(GK41_type) , intent(in) :: qrule
7004 real(RKC) , intent(out) :: integral, abserr
7005 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7006 integer(IK) , intent(out) , contiguous :: sindex(:)
7007 integer(IK) , intent(out) :: neval
7008 integer(IK) , intent(out) :: nint
7009 integer(IK) :: err
7010 end function
7011#endif
7012
7013#if RK4_ENABLED
7014 module function QAGD_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK4
7017#endif
7018 use pm_kind, only: RKC => RK4
7019 procedure(real(RKC)) :: getFunc
7020 real(RKC) , intent(in) :: lb
7021 type(pinf_type) , intent(in) :: ub
7022 real(RKC) , intent(in) :: abstol
7023 real(RKC) , intent(in) :: reltol
7024 type(GK41_type) , intent(in) :: qrule
7025 real(RKC) , intent(out) :: integral, abserr
7026 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7027 integer(IK) , intent(out) , contiguous :: sindex(:)
7028 integer(IK) , intent(out) :: neval
7029 integer(IK) , intent(out) :: nint
7030 integer(IK) :: err
7031 end function
7032#endif
7033
7034#if RK3_ENABLED
7035 module function QAGD_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7037 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK3
7038#endif
7039 use pm_kind, only: RKC => RK3
7040 procedure(real(RKC)) :: getFunc
7041 real(RKC) , intent(in) :: lb
7042 type(pinf_type) , intent(in) :: ub
7043 real(RKC) , intent(in) :: abstol
7044 real(RKC) , intent(in) :: reltol
7045 type(GK41_type) , intent(in) :: qrule
7046 real(RKC) , intent(out) :: integral, abserr
7047 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7048 integer(IK) , intent(out) , contiguous :: sindex(:)
7049 integer(IK) , intent(out) :: neval
7050 integer(IK) , intent(out) :: nint
7051 integer(IK) :: err
7052 end function
7053#endif
7054
7055#if RK2_ENABLED
7056 module function QAGD_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK2
7059#endif
7060 use pm_kind, only: RKC => RK2
7061 procedure(real(RKC)) :: getFunc
7062 real(RKC) , intent(in) :: lb
7063 type(pinf_type) , intent(in) :: ub
7064 real(RKC) , intent(in) :: abstol
7065 real(RKC) , intent(in) :: reltol
7066 type(GK41_type) , intent(in) :: qrule
7067 real(RKC) , intent(out) :: integral, abserr
7068 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7069 integer(IK) , intent(out) , contiguous :: sindex(:)
7070 integer(IK) , intent(out) :: neval
7071 integer(IK) , intent(out) :: nint
7072 integer(IK) :: err
7073 end function
7074#endif
7075
7076#if RK1_ENABLED
7077 module function QAGD_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7079 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK1
7080#endif
7081 use pm_kind, only: RKC => RK1
7082 procedure(real(RKC)) :: getFunc
7083 real(RKC) , intent(in) :: lb
7084 type(pinf_type) , intent(in) :: ub
7085 real(RKC) , intent(in) :: abstol
7086 real(RKC) , intent(in) :: reltol
7087 type(GK41_type) , intent(in) :: qrule
7088 real(RKC) , intent(out) :: integral, abserr
7089 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7090 integer(IK) , intent(out) , contiguous :: sindex(:)
7091 integer(IK) , intent(out) :: neval
7092 integer(IK) , intent(out) :: nint
7093 integer(IK) :: err
7094 end function
7095#endif
7096
7097 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7098
7099#if RK5_ENABLED
7100 module function QAGD_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7102 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK5
7103#endif
7104 use pm_kind, only: RKC => RK5
7105 procedure(real(RKC)) :: getFunc
7106 type(ninf_type) , intent(in) :: lb
7107 real(RKC) , intent(in) :: ub
7108 real(RKC) , intent(in) :: abstol
7109 real(RKC) , intent(in) :: reltol
7110 type(GK41_type) , intent(in) :: qrule
7111 real(RKC) , intent(out) :: integral, abserr
7112 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7113 integer(IK) , intent(out) , contiguous :: sindex(:)
7114 integer(IK) , intent(out) :: neval
7115 integer(IK) , intent(out) :: nint
7116 integer(IK) :: err
7117 end function
7118#endif
7119
7120#if RK4_ENABLED
7121 module function QAGD_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7123 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK4
7124#endif
7125 use pm_kind, only: RKC => RK4
7126 procedure(real(RKC)) :: getFunc
7127 type(ninf_type) , intent(in) :: lb
7128 real(RKC) , intent(in) :: ub
7129 real(RKC) , intent(in) :: abstol
7130 real(RKC) , intent(in) :: reltol
7131 type(GK41_type) , intent(in) :: qrule
7132 real(RKC) , intent(out) :: integral, abserr
7133 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7134 integer(IK) , intent(out) , contiguous :: sindex(:)
7135 integer(IK) , intent(out) :: neval
7136 integer(IK) , intent(out) :: nint
7137 integer(IK) :: err
7138 end function
7139#endif
7140
7141#if RK3_ENABLED
7142 module function QAGD_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK3
7145#endif
7146 use pm_kind, only: RKC => RK3
7147 procedure(real(RKC)) :: getFunc
7148 type(ninf_type) , intent(in) :: lb
7149 real(RKC) , intent(in) :: ub
7150 real(RKC) , intent(in) :: abstol
7151 real(RKC) , intent(in) :: reltol
7152 type(GK41_type) , intent(in) :: qrule
7153 real(RKC) , intent(out) :: integral, abserr
7154 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7155 integer(IK) , intent(out) , contiguous :: sindex(:)
7156 integer(IK) , intent(out) :: neval
7157 integer(IK) , intent(out) :: nint
7158 integer(IK) :: err
7159 end function
7160#endif
7161
7162#if RK2_ENABLED
7163 module function QAGD_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7165 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK2
7166#endif
7167 use pm_kind, only: RKC => RK2
7168 procedure(real(RKC)) :: getFunc
7169 type(ninf_type) , intent(in) :: lb
7170 real(RKC) , intent(in) :: ub
7171 real(RKC) , intent(in) :: abstol
7172 real(RKC) , intent(in) :: reltol
7173 type(GK41_type) , intent(in) :: qrule
7174 real(RKC) , intent(out) :: integral, abserr
7175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7176 integer(IK) , intent(out) , contiguous :: sindex(:)
7177 integer(IK) , intent(out) :: neval
7178 integer(IK) , intent(out) :: nint
7179 integer(IK) :: err
7180 end function
7181#endif
7182
7183#if RK1_ENABLED
7184 module function QAGD_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7186 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK1
7187#endif
7188 use pm_kind, only: RKC => RK1
7189 procedure(real(RKC)) :: getFunc
7190 type(ninf_type) , intent(in) :: lb
7191 real(RKC) , intent(in) :: ub
7192 real(RKC) , intent(in) :: abstol
7193 real(RKC) , intent(in) :: reltol
7194 type(GK41_type) , intent(in) :: qrule
7195 real(RKC) , intent(out) :: integral, abserr
7196 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7197 integer(IK) , intent(out) , contiguous :: sindex(:)
7198 integer(IK) , intent(out) :: neval
7199 integer(IK) , intent(out) :: nint
7200 integer(IK) :: err
7201 end function
7202#endif
7203
7204 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7205
7206#if RK5_ENABLED
7207 module function QAGD_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7209 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK5
7210#endif
7211 use pm_kind, only: RKC => RK5
7212 procedure(real(RKC)) :: getFunc
7213 type(ninf_type) , intent(in) :: lb
7214 type(pinf_type) , intent(in) :: ub
7215 real(RKC) , intent(in) :: abstol
7216 real(RKC) , intent(in) :: reltol
7217 type(GK41_type) , intent(in) :: qrule
7218 real(RKC) , intent(out) :: integral, abserr
7219 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7220 integer(IK) , intent(out) , contiguous :: sindex(:)
7221 integer(IK) , intent(out) :: neval
7222 integer(IK) , intent(out) :: nint
7223 integer(IK) :: err
7224 end function
7225#endif
7226
7227#if RK4_ENABLED
7228 module function QAGD_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7230 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK4
7231#endif
7232 use pm_kind, only: RKC => RK4
7233 procedure(real(RKC)) :: getFunc
7234 type(ninf_type) , intent(in) :: lb
7235 type(pinf_type) , intent(in) :: ub
7236 real(RKC) , intent(in) :: abstol
7237 real(RKC) , intent(in) :: reltol
7238 type(GK41_type) , intent(in) :: qrule
7239 real(RKC) , intent(out) :: integral, abserr
7240 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7241 integer(IK) , intent(out) , contiguous :: sindex(:)
7242 integer(IK) , intent(out) :: neval
7243 integer(IK) , intent(out) :: nint
7244 integer(IK) :: err
7245 end function
7246#endif
7247
7248#if RK3_ENABLED
7249 module function QAGD_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7251 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK3
7252#endif
7253 use pm_kind, only: RKC => RK3
7254 procedure(real(RKC)) :: getFunc
7255 type(ninf_type) , intent(in) :: lb
7256 type(pinf_type) , intent(in) :: ub
7257 real(RKC) , intent(in) :: abstol
7258 real(RKC) , intent(in) :: reltol
7259 type(GK41_type) , intent(in) :: qrule
7260 real(RKC) , intent(out) :: integral, abserr
7261 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7262 integer(IK) , intent(out) , contiguous :: sindex(:)
7263 integer(IK) , intent(out) :: neval
7264 integer(IK) , intent(out) :: nint
7265 integer(IK) :: err
7266 end function
7267#endif
7268
7269#if RK2_ENABLED
7270 module function QAGD_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK2
7273#endif
7274 use pm_kind, only: RKC => RK2
7275 procedure(real(RKC)) :: getFunc
7276 type(ninf_type) , intent(in) :: lb
7277 type(pinf_type) , intent(in) :: ub
7278 real(RKC) , intent(in) :: abstol
7279 real(RKC) , intent(in) :: reltol
7280 type(GK41_type) , intent(in) :: qrule
7281 real(RKC) , intent(out) :: integral, abserr
7282 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7283 integer(IK) , intent(out) , contiguous :: sindex(:)
7284 integer(IK) , intent(out) :: neval
7285 integer(IK) , intent(out) :: nint
7286 integer(IK) :: err
7287 end function
7288#endif
7289
7290#if RK1_ENABLED
7291 module function QAGD_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7293 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK1
7294#endif
7295 use pm_kind, only: RKC => RK1
7296 procedure(real(RKC)) :: getFunc
7297 type(ninf_type) , intent(in) :: lb
7298 type(pinf_type) , intent(in) :: ub
7299 real(RKC) , intent(in) :: abstol
7300 real(RKC) , intent(in) :: reltol
7301 type(GK41_type) , intent(in) :: qrule
7302 real(RKC) , intent(out) :: integral, abserr
7303 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7304 integer(IK) , intent(out) , contiguous :: sindex(:)
7305 integer(IK) , intent(out) :: neval
7306 integer(IK) , intent(out) :: nint
7307 integer(IK) :: err
7308 end function
7309#endif
7310
7311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7312
7313 end interface
7314
7315 ! QAGD_GK51
7316
7317 interface getQuadErr
7318
7319 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7320
7321#if RK5_ENABLED
7322 module function QAGD_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7324 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK5
7325#endif
7326 use pm_kind, only: RKC => RK5
7327 procedure(real(RKC)) :: getFunc
7328 real(RKC) , intent(in) :: lb
7329 real(RKC) , intent(in) :: ub
7330 real(RKC) , intent(in) :: abstol
7331 real(RKC) , intent(in) :: reltol
7332 type(GK51_type) , intent(in) :: qrule
7333 real(RKC) , intent(out) :: integral, abserr
7334 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7335 integer(IK) , intent(out) , contiguous :: sindex(:)
7336 integer(IK) , intent(out) :: neval
7337 integer(IK) , intent(out) :: nint
7338 integer(IK) :: err
7339 end function
7340#endif
7341
7342#if RK4_ENABLED
7343 module function QAGD_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7345 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK4
7346#endif
7347 use pm_kind, only: RKC => RK4
7348 procedure(real(RKC)) :: getFunc
7349 real(RKC) , intent(in) :: lb
7350 real(RKC) , intent(in) :: ub
7351 real(RKC) , intent(in) :: abstol
7352 real(RKC) , intent(in) :: reltol
7353 type(GK51_type) , intent(in) :: qrule
7354 real(RKC) , intent(out) :: integral, abserr
7355 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7356 integer(IK) , intent(out) , contiguous :: sindex(:)
7357 integer(IK) , intent(out) :: neval
7358 integer(IK) , intent(out) :: nint
7359 integer(IK) :: err
7360 end function
7361#endif
7362
7363#if RK3_ENABLED
7364 module function QAGD_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7366 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK3
7367#endif
7368 use pm_kind, only: RKC => RK3
7369 procedure(real(RKC)) :: getFunc
7370 real(RKC) , intent(in) :: lb
7371 real(RKC) , intent(in) :: ub
7372 real(RKC) , intent(in) :: abstol
7373 real(RKC) , intent(in) :: reltol
7374 type(GK51_type) , intent(in) :: qrule
7375 real(RKC) , intent(out) :: integral, abserr
7376 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7377 integer(IK) , intent(out) , contiguous :: sindex(:)
7378 integer(IK) , intent(out) :: neval
7379 integer(IK) , intent(out) :: nint
7380 integer(IK) :: err
7381 end function
7382#endif
7383
7384#if RK2_ENABLED
7385 module function QAGD_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7387 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK2
7388#endif
7389 use pm_kind, only: RKC => RK2
7390 procedure(real(RKC)) :: getFunc
7391 real(RKC) , intent(in) :: lb
7392 real(RKC) , intent(in) :: ub
7393 real(RKC) , intent(in) :: abstol
7394 real(RKC) , intent(in) :: reltol
7395 type(GK51_type) , intent(in) :: qrule
7396 real(RKC) , intent(out) :: integral, abserr
7397 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7398 integer(IK) , intent(out) , contiguous :: sindex(:)
7399 integer(IK) , intent(out) :: neval
7400 integer(IK) , intent(out) :: nint
7401 integer(IK) :: err
7402 end function
7403#endif
7404
7405#if RK1_ENABLED
7406 module function QAGD_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7408 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK1
7409#endif
7410 use pm_kind, only: RKC => RK1
7411 procedure(real(RKC)) :: getFunc
7412 real(RKC) , intent(in) :: lb
7413 real(RKC) , intent(in) :: ub
7414 real(RKC) , intent(in) :: abstol
7415 real(RKC) , intent(in) :: reltol
7416 type(GK51_type) , intent(in) :: qrule
7417 real(RKC) , intent(out) :: integral, abserr
7418 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7419 integer(IK) , intent(out) , contiguous :: sindex(:)
7420 integer(IK) , intent(out) :: neval
7421 integer(IK) , intent(out) :: nint
7422 integer(IK) :: err
7423 end function
7424#endif
7425
7426 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7427
7428#if RK5_ENABLED
7429 module function QAGD_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7431 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK5
7432#endif
7433 use pm_kind, only: RKC => RK5
7434 procedure(real(RKC)) :: getFunc
7435 real(RKC) , intent(in) :: lb
7436 type(pinf_type) , intent(in) :: ub
7437 real(RKC) , intent(in) :: abstol
7438 real(RKC) , intent(in) :: reltol
7439 type(GK51_type) , intent(in) :: qrule
7440 real(RKC) , intent(out) :: integral, abserr
7441 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7442 integer(IK) , intent(out) , contiguous :: sindex(:)
7443 integer(IK) , intent(out) :: neval
7444 integer(IK) , intent(out) :: nint
7445 integer(IK) :: err
7446 end function
7447#endif
7448
7449#if RK4_ENABLED
7450 module function QAGD_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7452 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK4
7453#endif
7454 use pm_kind, only: RKC => RK4
7455 procedure(real(RKC)) :: getFunc
7456 real(RKC) , intent(in) :: lb
7457 type(pinf_type) , intent(in) :: ub
7458 real(RKC) , intent(in) :: abstol
7459 real(RKC) , intent(in) :: reltol
7460 type(GK51_type) , intent(in) :: qrule
7461 real(RKC) , intent(out) :: integral, abserr
7462 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7463 integer(IK) , intent(out) , contiguous :: sindex(:)
7464 integer(IK) , intent(out) :: neval
7465 integer(IK) , intent(out) :: nint
7466 integer(IK) :: err
7467 end function
7468#endif
7469
7470#if RK3_ENABLED
7471 module function QAGD_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7473 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK3
7474#endif
7475 use pm_kind, only: RKC => RK3
7476 procedure(real(RKC)) :: getFunc
7477 real(RKC) , intent(in) :: lb
7478 type(pinf_type) , intent(in) :: ub
7479 real(RKC) , intent(in) :: abstol
7480 real(RKC) , intent(in) :: reltol
7481 type(GK51_type) , intent(in) :: qrule
7482 real(RKC) , intent(out) :: integral, abserr
7483 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7484 integer(IK) , intent(out) , contiguous :: sindex(:)
7485 integer(IK) , intent(out) :: neval
7486 integer(IK) , intent(out) :: nint
7487 integer(IK) :: err
7488 end function
7489#endif
7490
7491#if RK2_ENABLED
7492 module function QAGD_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK2
7495#endif
7496 use pm_kind, only: RKC => RK2
7497 procedure(real(RKC)) :: getFunc
7498 real(RKC) , intent(in) :: lb
7499 type(pinf_type) , intent(in) :: ub
7500 real(RKC) , intent(in) :: abstol
7501 real(RKC) , intent(in) :: reltol
7502 type(GK51_type) , intent(in) :: qrule
7503 real(RKC) , intent(out) :: integral, abserr
7504 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7505 integer(IK) , intent(out) , contiguous :: sindex(:)
7506 integer(IK) , intent(out) :: neval
7507 integer(IK) , intent(out) :: nint
7508 integer(IK) :: err
7509 end function
7510#endif
7511
7512#if RK1_ENABLED
7513 module function QAGD_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7515 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK1
7516#endif
7517 use pm_kind, only: RKC => RK1
7518 procedure(real(RKC)) :: getFunc
7519 real(RKC) , intent(in) :: lb
7520 type(pinf_type) , intent(in) :: ub
7521 real(RKC) , intent(in) :: abstol
7522 real(RKC) , intent(in) :: reltol
7523 type(GK51_type) , intent(in) :: qrule
7524 real(RKC) , intent(out) :: integral, abserr
7525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7526 integer(IK) , intent(out) , contiguous :: sindex(:)
7527 integer(IK) , intent(out) :: neval
7528 integer(IK) , intent(out) :: nint
7529 integer(IK) :: err
7530 end function
7531#endif
7532
7533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7534
7535#if RK5_ENABLED
7536 module function QAGD_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7538 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK5
7539#endif
7540 use pm_kind, only: RKC => RK5
7541 procedure(real(RKC)) :: getFunc
7542 type(ninf_type) , intent(in) :: lb
7543 real(RKC) , intent(in) :: ub
7544 real(RKC) , intent(in) :: abstol
7545 real(RKC) , intent(in) :: reltol
7546 type(GK51_type) , intent(in) :: qrule
7547 real(RKC) , intent(out) :: integral, abserr
7548 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7549 integer(IK) , intent(out) , contiguous :: sindex(:)
7550 integer(IK) , intent(out) :: neval
7551 integer(IK) , intent(out) :: nint
7552 integer(IK) :: err
7553 end function
7554#endif
7555
7556#if RK4_ENABLED
7557 module function QAGD_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7559 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK4
7560#endif
7561 use pm_kind, only: RKC => RK4
7562 procedure(real(RKC)) :: getFunc
7563 type(ninf_type) , intent(in) :: lb
7564 real(RKC) , intent(in) :: ub
7565 real(RKC) , intent(in) :: abstol
7566 real(RKC) , intent(in) :: reltol
7567 type(GK51_type) , intent(in) :: qrule
7568 real(RKC) , intent(out) :: integral, abserr
7569 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7570 integer(IK) , intent(out) , contiguous :: sindex(:)
7571 integer(IK) , intent(out) :: neval
7572 integer(IK) , intent(out) :: nint
7573 integer(IK) :: err
7574 end function
7575#endif
7576
7577#if RK3_ENABLED
7578 module function QAGD_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK3
7581#endif
7582 use pm_kind, only: RKC => RK3
7583 procedure(real(RKC)) :: getFunc
7584 type(ninf_type) , intent(in) :: lb
7585 real(RKC) , intent(in) :: ub
7586 real(RKC) , intent(in) :: abstol
7587 real(RKC) , intent(in) :: reltol
7588 type(GK51_type) , intent(in) :: qrule
7589 real(RKC) , intent(out) :: integral, abserr
7590 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7591 integer(IK) , intent(out) , contiguous :: sindex(:)
7592 integer(IK) , intent(out) :: neval
7593 integer(IK) , intent(out) :: nint
7594 integer(IK) :: err
7595 end function
7596#endif
7597
7598#if RK2_ENABLED
7599 module function QAGD_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK2
7602#endif
7603 use pm_kind, only: RKC => RK2
7604 procedure(real(RKC)) :: getFunc
7605 type(ninf_type) , intent(in) :: lb
7606 real(RKC) , intent(in) :: ub
7607 real(RKC) , intent(in) :: abstol
7608 real(RKC) , intent(in) :: reltol
7609 type(GK51_type) , intent(in) :: qrule
7610 real(RKC) , intent(out) :: integral, abserr
7611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7612 integer(IK) , intent(out) , contiguous :: sindex(:)
7613 integer(IK) , intent(out) :: neval
7614 integer(IK) , intent(out) :: nint
7615 integer(IK) :: err
7616 end function
7617#endif
7618
7619#if RK1_ENABLED
7620 module function QAGD_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK1
7623#endif
7624 use pm_kind, only: RKC => RK1
7625 procedure(real(RKC)) :: getFunc
7626 type(ninf_type) , intent(in) :: lb
7627 real(RKC) , intent(in) :: ub
7628 real(RKC) , intent(in) :: abstol
7629 real(RKC) , intent(in) :: reltol
7630 type(GK51_type) , intent(in) :: qrule
7631 real(RKC) , intent(out) :: integral, abserr
7632 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7633 integer(IK) , intent(out) , contiguous :: sindex(:)
7634 integer(IK) , intent(out) :: neval
7635 integer(IK) , intent(out) :: nint
7636 integer(IK) :: err
7637 end function
7638#endif
7639
7640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7641
7642#if RK5_ENABLED
7643 module function QAGD_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7645 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK5
7646#endif
7647 use pm_kind, only: RKC => RK5
7648 procedure(real(RKC)) :: getFunc
7649 type(ninf_type) , intent(in) :: lb
7650 type(pinf_type) , intent(in) :: ub
7651 real(RKC) , intent(in) :: abstol
7652 real(RKC) , intent(in) :: reltol
7653 type(GK51_type) , intent(in) :: qrule
7654 real(RKC) , intent(out) :: integral, abserr
7655 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7656 integer(IK) , intent(out) , contiguous :: sindex(:)
7657 integer(IK) , intent(out) :: neval
7658 integer(IK) , intent(out) :: nint
7659 integer(IK) :: err
7660 end function
7661#endif
7662
7663#if RK4_ENABLED
7664 module function QAGD_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7666 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK4
7667#endif
7668 use pm_kind, only: RKC => RK4
7669 procedure(real(RKC)) :: getFunc
7670 type(ninf_type) , intent(in) :: lb
7671 type(pinf_type) , intent(in) :: ub
7672 real(RKC) , intent(in) :: abstol
7673 real(RKC) , intent(in) :: reltol
7674 type(GK51_type) , intent(in) :: qrule
7675 real(RKC) , intent(out) :: integral, abserr
7676 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7677 integer(IK) , intent(out) , contiguous :: sindex(:)
7678 integer(IK) , intent(out) :: neval
7679 integer(IK) , intent(out) :: nint
7680 integer(IK) :: err
7681 end function
7682#endif
7683
7684#if RK3_ENABLED
7685 module function QAGD_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7687 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK3
7688#endif
7689 use pm_kind, only: RKC => RK3
7690 procedure(real(RKC)) :: getFunc
7691 type(ninf_type) , intent(in) :: lb
7692 type(pinf_type) , intent(in) :: ub
7693 real(RKC) , intent(in) :: abstol
7694 real(RKC) , intent(in) :: reltol
7695 type(GK51_type) , intent(in) :: qrule
7696 real(RKC) , intent(out) :: integral, abserr
7697 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7698 integer(IK) , intent(out) , contiguous :: sindex(:)
7699 integer(IK) , intent(out) :: neval
7700 integer(IK) , intent(out) :: nint
7701 integer(IK) :: err
7702 end function
7703#endif
7704
7705#if RK2_ENABLED
7706 module function QAGD_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK2
7709#endif
7710 use pm_kind, only: RKC => RK2
7711 procedure(real(RKC)) :: getFunc
7712 type(ninf_type) , intent(in) :: lb
7713 type(pinf_type) , intent(in) :: ub
7714 real(RKC) , intent(in) :: abstol
7715 real(RKC) , intent(in) :: reltol
7716 type(GK51_type) , intent(in) :: qrule
7717 real(RKC) , intent(out) :: integral, abserr
7718 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7719 integer(IK) , intent(out) , contiguous :: sindex(:)
7720 integer(IK) , intent(out) :: neval
7721 integer(IK) , intent(out) :: nint
7722 integer(IK) :: err
7723 end function
7724#endif
7725
7726#if RK1_ENABLED
7727 module function QAGD_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7729 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK1
7730#endif
7731 use pm_kind, only: RKC => RK1
7732 procedure(real(RKC)) :: getFunc
7733 type(ninf_type) , intent(in) :: lb
7734 type(pinf_type) , intent(in) :: ub
7735 real(RKC) , intent(in) :: abstol
7736 real(RKC) , intent(in) :: reltol
7737 type(GK51_type) , intent(in) :: qrule
7738 real(RKC) , intent(out) :: integral, abserr
7739 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7740 integer(IK) , intent(out) , contiguous :: sindex(:)
7741 integer(IK) , intent(out) :: neval
7742 integer(IK) , intent(out) :: nint
7743 integer(IK) :: err
7744 end function
7745#endif
7746
7747 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7748
7749 end interface
7750
7751 ! QAGD_GK61
7752
7753 interface getQuadErr
7754
7755 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7756
7757#if RK5_ENABLED
7758 module function QAGD_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7760 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK5
7761#endif
7762 use pm_kind, only: RKC => RK5
7763 procedure(real(RKC)) :: getFunc
7764 real(RKC) , intent(in) :: lb
7765 real(RKC) , intent(in) :: ub
7766 real(RKC) , intent(in) :: abstol
7767 real(RKC) , intent(in) :: reltol
7768 type(GK61_type) , intent(in) :: qrule
7769 real(RKC) , intent(out) :: integral, abserr
7770 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7771 integer(IK) , intent(out) , contiguous :: sindex(:)
7772 integer(IK) , intent(out) :: neval
7773 integer(IK) , intent(out) :: nint
7774 integer(IK) :: err
7775 end function
7776#endif
7777
7778#if RK4_ENABLED
7779 module function QAGD_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7781 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK4
7782#endif
7783 use pm_kind, only: RKC => RK4
7784 procedure(real(RKC)) :: getFunc
7785 real(RKC) , intent(in) :: lb
7786 real(RKC) , intent(in) :: ub
7787 real(RKC) , intent(in) :: abstol
7788 real(RKC) , intent(in) :: reltol
7789 type(GK61_type) , intent(in) :: qrule
7790 real(RKC) , intent(out) :: integral, abserr
7791 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7792 integer(IK) , intent(out) , contiguous :: sindex(:)
7793 integer(IK) , intent(out) :: neval
7794 integer(IK) , intent(out) :: nint
7795 integer(IK) :: err
7796 end function
7797#endif
7798
7799#if RK3_ENABLED
7800 module function QAGD_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7802 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK3
7803#endif
7804 use pm_kind, only: RKC => RK3
7805 procedure(real(RKC)) :: getFunc
7806 real(RKC) , intent(in) :: lb
7807 real(RKC) , intent(in) :: ub
7808 real(RKC) , intent(in) :: abstol
7809 real(RKC) , intent(in) :: reltol
7810 type(GK61_type) , intent(in) :: qrule
7811 real(RKC) , intent(out) :: integral, abserr
7812 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7813 integer(IK) , intent(out) , contiguous :: sindex(:)
7814 integer(IK) , intent(out) :: neval
7815 integer(IK) , intent(out) :: nint
7816 integer(IK) :: err
7817 end function
7818#endif
7819
7820#if RK2_ENABLED
7821 module function QAGD_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7823 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK2
7824#endif
7825 use pm_kind, only: RKC => RK2
7826 procedure(real(RKC)) :: getFunc
7827 real(RKC) , intent(in) :: lb
7828 real(RKC) , intent(in) :: ub
7829 real(RKC) , intent(in) :: abstol
7830 real(RKC) , intent(in) :: reltol
7831 type(GK61_type) , intent(in) :: qrule
7832 real(RKC) , intent(out) :: integral, abserr
7833 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7834 integer(IK) , intent(out) , contiguous :: sindex(:)
7835 integer(IK) , intent(out) :: neval
7836 integer(IK) , intent(out) :: nint
7837 integer(IK) :: err
7838 end function
7839#endif
7840
7841#if RK1_ENABLED
7842 module function QAGD_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7844 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK1
7845#endif
7846 use pm_kind, only: RKC => RK1
7847 procedure(real(RKC)) :: getFunc
7848 real(RKC) , intent(in) :: lb
7849 real(RKC) , intent(in) :: ub
7850 real(RKC) , intent(in) :: abstol
7851 real(RKC) , intent(in) :: reltol
7852 type(GK61_type) , intent(in) :: qrule
7853 real(RKC) , intent(out) :: integral, abserr
7854 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7855 integer(IK) , intent(out) , contiguous :: sindex(:)
7856 integer(IK) , intent(out) :: neval
7857 integer(IK) , intent(out) :: nint
7858 integer(IK) :: err
7859 end function
7860#endif
7861
7862 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7863
7864#if RK5_ENABLED
7865 module function QAGD_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7867 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK5
7868#endif
7869 use pm_kind, only: RKC => RK5
7870 procedure(real(RKC)) :: getFunc
7871 real(RKC) , intent(in) :: lb
7872 type(pinf_type) , intent(in) :: ub
7873 real(RKC) , intent(in) :: abstol
7874 real(RKC) , intent(in) :: reltol
7875 type(GK61_type) , intent(in) :: qrule
7876 real(RKC) , intent(out) :: integral, abserr
7877 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7878 integer(IK) , intent(out) , contiguous :: sindex(:)
7879 integer(IK) , intent(out) :: neval
7880 integer(IK) , intent(out) :: nint
7881 integer(IK) :: err
7882 end function
7883#endif
7884
7885#if RK4_ENABLED
7886 module function QAGD_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7888 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK4
7889#endif
7890 use pm_kind, only: RKC => RK4
7891 procedure(real(RKC)) :: getFunc
7892 real(RKC) , intent(in) :: lb
7893 type(pinf_type) , intent(in) :: ub
7894 real(RKC) , intent(in) :: abstol
7895 real(RKC) , intent(in) :: reltol
7896 type(GK61_type) , intent(in) :: qrule
7897 real(RKC) , intent(out) :: integral, abserr
7898 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7899 integer(IK) , intent(out) , contiguous :: sindex(:)
7900 integer(IK) , intent(out) :: neval
7901 integer(IK) , intent(out) :: nint
7902 integer(IK) :: err
7903 end function
7904#endif
7905
7906#if RK3_ENABLED
7907 module function QAGD_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7909 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK3
7910#endif
7911 use pm_kind, only: RKC => RK3
7912 procedure(real(RKC)) :: getFunc
7913 real(RKC) , intent(in) :: lb
7914 type(pinf_type) , intent(in) :: ub
7915 real(RKC) , intent(in) :: abstol
7916 real(RKC) , intent(in) :: reltol
7917 type(GK61_type) , intent(in) :: qrule
7918 real(RKC) , intent(out) :: integral, abserr
7919 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7920 integer(IK) , intent(out) , contiguous :: sindex(:)
7921 integer(IK) , intent(out) :: neval
7922 integer(IK) , intent(out) :: nint
7923 integer(IK) :: err
7924 end function
7925#endif
7926
7927#if RK2_ENABLED
7928 module function QAGD_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7930 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK2
7931#endif
7932 use pm_kind, only: RKC => RK2
7933 procedure(real(RKC)) :: getFunc
7934 real(RKC) , intent(in) :: lb
7935 type(pinf_type) , intent(in) :: ub
7936 real(RKC) , intent(in) :: abstol
7937 real(RKC) , intent(in) :: reltol
7938 type(GK61_type) , intent(in) :: qrule
7939 real(RKC) , intent(out) :: integral, abserr
7940 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7941 integer(IK) , intent(out) , contiguous :: sindex(:)
7942 integer(IK) , intent(out) :: neval
7943 integer(IK) , intent(out) :: nint
7944 integer(IK) :: err
7945 end function
7946#endif
7947
7948#if RK1_ENABLED
7949 module function QAGD_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7951 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK1
7952#endif
7953 use pm_kind, only: RKC => RK1
7954 procedure(real(RKC)) :: getFunc
7955 real(RKC) , intent(in) :: lb
7956 type(pinf_type) , intent(in) :: ub
7957 real(RKC) , intent(in) :: abstol
7958 real(RKC) , intent(in) :: reltol
7959 type(GK61_type) , intent(in) :: qrule
7960 real(RKC) , intent(out) :: integral, abserr
7961 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7962 integer(IK) , intent(out) , contiguous :: sindex(:)
7963 integer(IK) , intent(out) :: neval
7964 integer(IK) , intent(out) :: nint
7965 integer(IK) :: err
7966 end function
7967#endif
7968
7969 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7970
7971#if RK5_ENABLED
7972 module function QAGD_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7974 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK5
7975#endif
7976 use pm_kind, only: RKC => RK5
7977 procedure(real(RKC)) :: getFunc
7978 type(ninf_type) , intent(in) :: lb
7979 real(RKC) , intent(in) :: ub
7980 real(RKC) , intent(in) :: abstol
7981 real(RKC) , intent(in) :: reltol
7982 type(GK61_type) , intent(in) :: qrule
7983 real(RKC) , intent(out) :: integral, abserr
7984 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7985 integer(IK) , intent(out) , contiguous :: sindex(:)
7986 integer(IK) , intent(out) :: neval
7987 integer(IK) , intent(out) :: nint
7988 integer(IK) :: err
7989 end function
7990#endif
7991
7992#if RK4_ENABLED
7993 module function QAGD_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7995 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK4
7996#endif
7997 use pm_kind, only: RKC => RK4
7998 procedure(real(RKC)) :: getFunc
7999 type(ninf_type) , intent(in) :: lb
8000 real(RKC) , intent(in) :: ub
8001 real(RKC) , intent(in) :: abstol
8002 real(RKC) , intent(in) :: reltol
8003 type(GK61_type) , intent(in) :: qrule
8004 real(RKC) , intent(out) :: integral, abserr
8005 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8006 integer(IK) , intent(out) , contiguous :: sindex(:)
8007 integer(IK) , intent(out) :: neval
8008 integer(IK) , intent(out) :: nint
8009 integer(IK) :: err
8010 end function
8011#endif
8012
8013#if RK3_ENABLED
8014 module function QAGD_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK3
8017#endif
8018 use pm_kind, only: RKC => RK3
8019 procedure(real(RKC)) :: getFunc
8020 type(ninf_type) , intent(in) :: lb
8021 real(RKC) , intent(in) :: ub
8022 real(RKC) , intent(in) :: abstol
8023 real(RKC) , intent(in) :: reltol
8024 type(GK61_type) , intent(in) :: qrule
8025 real(RKC) , intent(out) :: integral, abserr
8026 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8027 integer(IK) , intent(out) , contiguous :: sindex(:)
8028 integer(IK) , intent(out) :: neval
8029 integer(IK) , intent(out) :: nint
8030 integer(IK) :: err
8031 end function
8032#endif
8033
8034#if RK2_ENABLED
8035 module function QAGD_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8037 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK2
8038#endif
8039 use pm_kind, only: RKC => RK2
8040 procedure(real(RKC)) :: getFunc
8041 type(ninf_type) , intent(in) :: lb
8042 real(RKC) , intent(in) :: ub
8043 real(RKC) , intent(in) :: abstol
8044 real(RKC) , intent(in) :: reltol
8045 type(GK61_type) , intent(in) :: qrule
8046 real(RKC) , intent(out) :: integral, abserr
8047 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8048 integer(IK) , intent(out) , contiguous :: sindex(:)
8049 integer(IK) , intent(out) :: neval
8050 integer(IK) , intent(out) :: nint
8051 integer(IK) :: err
8052 end function
8053#endif
8054
8055#if RK1_ENABLED
8056 module function QAGD_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK1
8059#endif
8060 use pm_kind, only: RKC => RK1
8061 procedure(real(RKC)) :: getFunc
8062 type(ninf_type) , intent(in) :: lb
8063 real(RKC) , intent(in) :: ub
8064 real(RKC) , intent(in) :: abstol
8065 real(RKC) , intent(in) :: reltol
8066 type(GK61_type) , intent(in) :: qrule
8067 real(RKC) , intent(out) :: integral, abserr
8068 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8069 integer(IK) , intent(out) , contiguous :: sindex(:)
8070 integer(IK) , intent(out) :: neval
8071 integer(IK) , intent(out) :: nint
8072 integer(IK) :: err
8073 end function
8074#endif
8075
8076 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8077
8078#if RK5_ENABLED
8079 module function QAGD_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8081 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK5
8082#endif
8083 use pm_kind, only: RKC => RK5
8084 procedure(real(RKC)) :: getFunc
8085 type(ninf_type) , intent(in) :: lb
8086 type(pinf_type) , intent(in) :: ub
8087 real(RKC) , intent(in) :: abstol
8088 real(RKC) , intent(in) :: reltol
8089 type(GK61_type) , intent(in) :: qrule
8090 real(RKC) , intent(out) :: integral, abserr
8091 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8092 integer(IK) , intent(out) , contiguous :: sindex(:)
8093 integer(IK) , intent(out) :: neval
8094 integer(IK) , intent(out) :: nint
8095 integer(IK) :: err
8096 end function
8097#endif
8098
8099#if RK4_ENABLED
8100 module function QAGD_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8102 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK4
8103#endif
8104 use pm_kind, only: RKC => RK4
8105 procedure(real(RKC)) :: getFunc
8106 type(ninf_type) , intent(in) :: lb
8107 type(pinf_type) , intent(in) :: ub
8108 real(RKC) , intent(in) :: abstol
8109 real(RKC) , intent(in) :: reltol
8110 type(GK61_type) , intent(in) :: qrule
8111 real(RKC) , intent(out) :: integral, abserr
8112 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8113 integer(IK) , intent(out) , contiguous :: sindex(:)
8114 integer(IK) , intent(out) :: neval
8115 integer(IK) , intent(out) :: nint
8116 integer(IK) :: err
8117 end function
8118#endif
8119
8120#if RK3_ENABLED
8121 module function QAGD_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8123 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK3
8124#endif
8125 use pm_kind, only: RKC => RK3
8126 procedure(real(RKC)) :: getFunc
8127 type(ninf_type) , intent(in) :: lb
8128 type(pinf_type) , intent(in) :: ub
8129 real(RKC) , intent(in) :: abstol
8130 real(RKC) , intent(in) :: reltol
8131 type(GK61_type) , intent(in) :: qrule
8132 real(RKC) , intent(out) :: integral, abserr
8133 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8134 integer(IK) , intent(out) , contiguous :: sindex(:)
8135 integer(IK) , intent(out) :: neval
8136 integer(IK) , intent(out) :: nint
8137 integer(IK) :: err
8138 end function
8139#endif
8140
8141#if RK2_ENABLED
8142 module function QAGD_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK2
8145#endif
8146 use pm_kind, only: RKC => RK2
8147 procedure(real(RKC)) :: getFunc
8148 type(ninf_type) , intent(in) :: lb
8149 type(pinf_type) , intent(in) :: ub
8150 real(RKC) , intent(in) :: abstol
8151 real(RKC) , intent(in) :: reltol
8152 type(GK61_type) , intent(in) :: qrule
8153 real(RKC) , intent(out) :: integral, abserr
8154 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8155 integer(IK) , intent(out) , contiguous :: sindex(:)
8156 integer(IK) , intent(out) :: neval
8157 integer(IK) , intent(out) :: nint
8158 integer(IK) :: err
8159 end function
8160#endif
8161
8162#if RK1_ENABLED
8163 module function QAGD_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8165 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK1
8166#endif
8167 use pm_kind, only: RKC => RK1
8168 procedure(real(RKC)) :: getFunc
8169 type(ninf_type) , intent(in) :: lb
8170 type(pinf_type) , intent(in) :: ub
8171 real(RKC) , intent(in) :: abstol
8172 real(RKC) , intent(in) :: reltol
8173 type(GK61_type) , intent(in) :: qrule
8174 real(RKC) , intent(out) :: integral, abserr
8175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8176 integer(IK) , intent(out) , contiguous :: sindex(:)
8177 integer(IK) , intent(out) :: neval
8178 integer(IK) , intent(out) :: nint
8179 integer(IK) :: err
8180 end function
8181#endif
8182
8183 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8184
8185 end interface
8186
8187 ! QAGD_GKXX
8188
8189 interface getQuadErr
8190
8191 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8192
8193#if RK5_ENABLED
8194 module function QAGD_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8196 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK5
8197#endif
8198 use pm_kind, only: RKC => RK5
8199 procedure(real(RKC)) :: getFunc
8200 real(RKC) , intent(in) :: lb
8201 real(RKC) , intent(in) :: ub
8202 real(RKC) , intent(in) :: abstol
8203 real(RKC) , intent(in) :: reltol
8204 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8205 real(RKC) , intent(out) :: integral, abserr
8206 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8207 integer(IK) , intent(out) , contiguous :: sindex(:)
8208 integer(IK) , intent(out) :: neval
8209 integer(IK) , intent(out) :: nint
8210 integer(IK) :: err
8211 end function
8212#endif
8213
8214#if RK4_ENABLED
8215 module function QAGD_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8217 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK4
8218#endif
8219 use pm_kind, only: RKC => RK4
8220 procedure(real(RKC)) :: getFunc
8221 real(RKC) , intent(in) :: lb
8222 real(RKC) , intent(in) :: ub
8223 real(RKC) , intent(in) :: abstol
8224 real(RKC) , intent(in) :: reltol
8225 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8226 real(RKC) , intent(out) :: integral, abserr
8227 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8228 integer(IK) , intent(out) , contiguous :: sindex(:)
8229 integer(IK) , intent(out) :: neval
8230 integer(IK) , intent(out) :: nint
8231 integer(IK) :: err
8232 end function
8233#endif
8234
8235#if RK3_ENABLED
8236 module function QAGD_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8238 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK3
8239#endif
8240 use pm_kind, only: RKC => RK3
8241 procedure(real(RKC)) :: getFunc
8242 real(RKC) , intent(in) :: lb
8243 real(RKC) , intent(in) :: ub
8244 real(RKC) , intent(in) :: abstol
8245 real(RKC) , intent(in) :: reltol
8246 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8247 real(RKC) , intent(out) :: integral, abserr
8248 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8249 integer(IK) , intent(out) , contiguous :: sindex(:)
8250 integer(IK) , intent(out) :: neval
8251 integer(IK) , intent(out) :: nint
8252 integer(IK) :: err
8253 end function
8254#endif
8255
8256#if RK2_ENABLED
8257 module function QAGD_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8259 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK2
8260#endif
8261 use pm_kind, only: RKC => RK2
8262 procedure(real(RKC)) :: getFunc
8263 real(RKC) , intent(in) :: lb
8264 real(RKC) , intent(in) :: ub
8265 real(RKC) , intent(in) :: abstol
8266 real(RKC) , intent(in) :: reltol
8267 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8268 real(RKC) , intent(out) :: integral, abserr
8269 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8270 integer(IK) , intent(out) , contiguous :: sindex(:)
8271 integer(IK) , intent(out) :: neval
8272 integer(IK) , intent(out) :: nint
8273 integer(IK) :: err
8274 end function
8275#endif
8276
8277#if RK1_ENABLED
8278 module function QAGD_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8280 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK1
8281#endif
8282 use pm_kind, only: RKC => RK1
8283 procedure(real(RKC)) :: getFunc
8284 real(RKC) , intent(in) :: lb
8285 real(RKC) , intent(in) :: ub
8286 real(RKC) , intent(in) :: abstol
8287 real(RKC) , intent(in) :: reltol
8288 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8289 real(RKC) , intent(out) :: integral, abserr
8290 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8291 integer(IK) , intent(out) , contiguous :: sindex(:)
8292 integer(IK) , intent(out) :: neval
8293 integer(IK) , intent(out) :: nint
8294 integer(IK) :: err
8295 end function
8296#endif
8297
8298 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8299
8300#if RK5_ENABLED
8301 module function QAGD_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8303 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK5
8304#endif
8305 use pm_kind, only: RKC => RK5
8306 procedure(real(RKC)) :: getFunc
8307 real(RKC) , intent(in) :: lb
8308 type(pinf_type) , intent(in) :: ub
8309 real(RKC) , intent(in) :: abstol
8310 real(RKC) , intent(in) :: reltol
8311 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8312 real(RKC) , intent(out) :: integral, abserr
8313 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8314 integer(IK) , intent(out) , contiguous :: sindex(:)
8315 integer(IK) , intent(out) :: neval
8316 integer(IK) , intent(out) :: nint
8317 integer(IK) :: err
8318 end function
8319#endif
8320
8321#if RK4_ENABLED
8322 module function QAGD_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8324 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK4
8325#endif
8326 use pm_kind, only: RKC => RK4
8327 procedure(real(RKC)) :: getFunc
8328 real(RKC) , intent(in) :: lb
8329 type(pinf_type) , intent(in) :: ub
8330 real(RKC) , intent(in) :: abstol
8331 real(RKC) , intent(in) :: reltol
8332 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8333 real(RKC) , intent(out) :: integral, abserr
8334 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8335 integer(IK) , intent(out) , contiguous :: sindex(:)
8336 integer(IK) , intent(out) :: neval
8337 integer(IK) , intent(out) :: nint
8338 integer(IK) :: err
8339 end function
8340#endif
8341
8342#if RK3_ENABLED
8343 module function QAGD_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8345 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK3
8346#endif
8347 use pm_kind, only: RKC => RK3
8348 procedure(real(RKC)) :: getFunc
8349 real(RKC) , intent(in) :: lb
8350 type(pinf_type) , intent(in) :: ub
8351 real(RKC) , intent(in) :: abstol
8352 real(RKC) , intent(in) :: reltol
8353 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8354 real(RKC) , intent(out) :: integral, abserr
8355 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8356 integer(IK) , intent(out) , contiguous :: sindex(:)
8357 integer(IK) , intent(out) :: neval
8358 integer(IK) , intent(out) :: nint
8359 integer(IK) :: err
8360 end function
8361#endif
8362
8363#if RK2_ENABLED
8364 module function QAGD_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8366 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK2
8367#endif
8368 use pm_kind, only: RKC => RK2
8369 procedure(real(RKC)) :: getFunc
8370 real(RKC) , intent(in) :: lb
8371 type(pinf_type) , intent(in) :: ub
8372 real(RKC) , intent(in) :: abstol
8373 real(RKC) , intent(in) :: reltol
8374 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8375 real(RKC) , intent(out) :: integral, abserr
8376 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8377 integer(IK) , intent(out) , contiguous :: sindex(:)
8378 integer(IK) , intent(out) :: neval
8379 integer(IK) , intent(out) :: nint
8380 integer(IK) :: err
8381 end function
8382#endif
8383
8384#if RK1_ENABLED
8385 module function QAGD_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8387 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK1
8388#endif
8389 use pm_kind, only: RKC => RK1
8390 procedure(real(RKC)) :: getFunc
8391 real(RKC) , intent(in) :: lb
8392 type(pinf_type) , intent(in) :: ub
8393 real(RKC) , intent(in) :: abstol
8394 real(RKC) , intent(in) :: reltol
8395 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8396 real(RKC) , intent(out) :: integral, abserr
8397 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8398 integer(IK) , intent(out) , contiguous :: sindex(:)
8399 integer(IK) , intent(out) :: neval
8400 integer(IK) , intent(out) :: nint
8401 integer(IK) :: err
8402 end function
8403#endif
8404
8405 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8406
8407#if RK5_ENABLED
8408 module function QAGD_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8410 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK5
8411#endif
8412 use pm_kind, only: RKC => RK5
8413 procedure(real(RKC)) :: getFunc
8414 type(ninf_type) , intent(in) :: lb
8415 real(RKC) , intent(in) :: ub
8416 real(RKC) , intent(in) :: abstol
8417 real(RKC) , intent(in) :: reltol
8418 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8419 real(RKC) , intent(out) :: integral, abserr
8420 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8421 integer(IK) , intent(out) , contiguous :: sindex(:)
8422 integer(IK) , intent(out) :: neval
8423 integer(IK) , intent(out) :: nint
8424 integer(IK) :: err
8425 end function
8426#endif
8427
8428#if RK4_ENABLED
8429 module function QAGD_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8431 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK4
8432#endif
8433 use pm_kind, only: RKC => RK4
8434 procedure(real(RKC)) :: getFunc
8435 type(ninf_type) , intent(in) :: lb
8436 real(RKC) , intent(in) :: ub
8437 real(RKC) , intent(in) :: abstol
8438 real(RKC) , intent(in) :: reltol
8439 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8440 real(RKC) , intent(out) :: integral, abserr
8441 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8442 integer(IK) , intent(out) , contiguous :: sindex(:)
8443 integer(IK) , intent(out) :: neval
8444 integer(IK) , intent(out) :: nint
8445 integer(IK) :: err
8446 end function
8447#endif
8448
8449#if RK3_ENABLED
8450 module function QAGD_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8452 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK3
8453#endif
8454 use pm_kind, only: RKC => RK3
8455 procedure(real(RKC)) :: getFunc
8456 type(ninf_type) , intent(in) :: lb
8457 real(RKC) , intent(in) :: ub
8458 real(RKC) , intent(in) :: abstol
8459 real(RKC) , intent(in) :: reltol
8460 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8461 real(RKC) , intent(out) :: integral, abserr
8462 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8463 integer(IK) , intent(out) , contiguous :: sindex(:)
8464 integer(IK) , intent(out) :: neval
8465 integer(IK) , intent(out) :: nint
8466 integer(IK) :: err
8467 end function
8468#endif
8469
8470#if RK2_ENABLED
8471 module function QAGD_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8473 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK2
8474#endif
8475 use pm_kind, only: RKC => RK2
8476 procedure(real(RKC)) :: getFunc
8477 type(ninf_type) , intent(in) :: lb
8478 real(RKC) , intent(in) :: ub
8479 real(RKC) , intent(in) :: abstol
8480 real(RKC) , intent(in) :: reltol
8481 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8482 real(RKC) , intent(out) :: integral, abserr
8483 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8484 integer(IK) , intent(out) , contiguous :: sindex(:)
8485 integer(IK) , intent(out) :: neval
8486 integer(IK) , intent(out) :: nint
8487 integer(IK) :: err
8488 end function
8489#endif
8490
8491#if RK1_ENABLED
8492 module function QAGD_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK1
8495#endif
8496 use pm_kind, only: RKC => RK1
8497 procedure(real(RKC)) :: getFunc
8498 type(ninf_type) , intent(in) :: lb
8499 real(RKC) , intent(in) :: ub
8500 real(RKC) , intent(in) :: abstol
8501 real(RKC) , intent(in) :: reltol
8502 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8503 real(RKC) , intent(out) :: integral, abserr
8504 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8505 integer(IK) , intent(out) , contiguous :: sindex(:)
8506 integer(IK) , intent(out) :: neval
8507 integer(IK) , intent(out) :: nint
8508 integer(IK) :: err
8509 end function
8510#endif
8511
8512 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8513
8514#if RK5_ENABLED
8515 module function QAGD_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8517 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK5
8518#endif
8519 use pm_kind, only: RKC => RK5
8520 procedure(real(RKC)) :: getFunc
8521 type(ninf_type) , intent(in) :: lb
8522 type(pinf_type) , intent(in) :: ub
8523 real(RKC) , intent(in) :: abstol
8524 real(RKC) , intent(in) :: reltol
8525 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8526 real(RKC) , intent(out) :: integral, abserr
8527 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8528 integer(IK) , intent(out) , contiguous :: sindex(:)
8529 integer(IK) , intent(out) :: neval
8530 integer(IK) , intent(out) :: nint
8531 integer(IK) :: err
8532 end function
8533#endif
8534
8535#if RK4_ENABLED
8536 module function QAGD_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8538 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK4
8539#endif
8540 use pm_kind, only: RKC => RK4
8541 procedure(real(RKC)) :: getFunc
8542 type(ninf_type) , intent(in) :: lb
8543 type(pinf_type) , intent(in) :: ub
8544 real(RKC) , intent(in) :: abstol
8545 real(RKC) , intent(in) :: reltol
8546 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8547 real(RKC) , intent(out) :: integral, abserr
8548 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8549 integer(IK) , intent(out) , contiguous :: sindex(:)
8550 integer(IK) , intent(out) :: neval
8551 integer(IK) , intent(out) :: nint
8552 integer(IK) :: err
8553 end function
8554#endif
8555
8556#if RK3_ENABLED
8557 module function QAGD_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8559 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK3
8560#endif
8561 use pm_kind, only: RKC => RK3
8562 procedure(real(RKC)) :: getFunc
8563 type(ninf_type) , intent(in) :: lb
8564 type(pinf_type) , intent(in) :: ub
8565 real(RKC) , intent(in) :: abstol
8566 real(RKC) , intent(in) :: reltol
8567 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8568 real(RKC) , intent(out) :: integral, abserr
8569 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8570 integer(IK) , intent(out) , contiguous :: sindex(:)
8571 integer(IK) , intent(out) :: neval
8572 integer(IK) , intent(out) :: nint
8573 integer(IK) :: err
8574 end function
8575#endif
8576
8577#if RK2_ENABLED
8578 module function QAGD_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK2
8581#endif
8582 use pm_kind, only: RKC => RK2
8583 procedure(real(RKC)) :: getFunc
8584 type(ninf_type) , intent(in) :: lb
8585 type(pinf_type) , intent(in) :: ub
8586 real(RKC) , intent(in) :: abstol
8587 real(RKC) , intent(in) :: reltol
8588 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8589 real(RKC) , intent(out) :: integral, abserr
8590 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8591 integer(IK) , intent(out) , contiguous :: sindex(:)
8592 integer(IK) , intent(out) :: neval
8593 integer(IK) , intent(out) :: nint
8594 integer(IK) :: err
8595 end function
8596#endif
8597
8598#if RK1_ENABLED
8599 module function QAGD_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK1
8602#endif
8603 use pm_kind, only: RKC => RK1
8604 procedure(real(RKC)) :: getFunc
8605 type(ninf_type) , intent(in) :: lb
8606 type(pinf_type) , intent(in) :: ub
8607 real(RKC) , intent(in) :: abstol
8608 real(RKC) , intent(in) :: reltol
8609 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8610 real(RKC) , intent(out) :: integral, abserr
8611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8612 integer(IK) , intent(out) , contiguous :: sindex(:)
8613 integer(IK) , intent(out) :: neval
8614 integer(IK) , intent(out) :: nint
8615 integer(IK) :: err
8616 end function
8617#endif
8618
8619 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8620
8621 end interface
8622
8623!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8624
8625 ! QAGS_GK15
8626
8627 interface getQuadErr
8628
8629 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8630
8631#if RK5_ENABLED
8632 module function QAGS_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8634 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK5
8635#endif
8636 use pm_kind, only: RKC => RK5
8637 procedure(real(RKC)) :: getFunc
8638 real(RKC) , intent(in) :: lb
8639 real(RKC) , intent(in) :: ub
8640 real(RKC) , intent(in) :: abstol
8641 real(RKC) , intent(in) :: reltol
8642 type(GK15_type) , intent(in) :: qrule
8643 type(weps_type) , intent(in) :: help
8644 real(RKC) , intent(out) :: integral, abserr
8645 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8646 integer(IK) , intent(out) , contiguous :: sindex(:)
8647 integer(IK) , intent(out) :: neval
8648 integer(IK) , intent(out) :: nint
8649 integer(IK) :: err
8650 end function
8651#endif
8652
8653#if RK4_ENABLED
8654 module function QAGS_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8656 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK4
8657#endif
8658 use pm_kind, only: RKC => RK4
8659 procedure(real(RKC)) :: getFunc
8660 real(RKC) , intent(in) :: lb
8661 real(RKC) , intent(in) :: ub
8662 real(RKC) , intent(in) :: abstol
8663 real(RKC) , intent(in) :: reltol
8664 type(GK15_type) , intent(in) :: qrule
8665 type(weps_type) , intent(in) :: help
8666 real(RKC) , intent(out) :: integral, abserr
8667 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8668 integer(IK) , intent(out) , contiguous :: sindex(:)
8669 integer(IK) , intent(out) :: neval
8670 integer(IK) , intent(out) :: nint
8671 integer(IK) :: err
8672 end function
8673#endif
8674
8675#if RK3_ENABLED
8676 module function QAGS_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8678 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK3
8679#endif
8680 use pm_kind, only: RKC => RK3
8681 procedure(real(RKC)) :: getFunc
8682 real(RKC) , intent(in) :: lb
8683 real(RKC) , intent(in) :: ub
8684 real(RKC) , intent(in) :: abstol
8685 real(RKC) , intent(in) :: reltol
8686 type(GK15_type) , intent(in) :: qrule
8687 type(weps_type) , intent(in) :: help
8688 real(RKC) , intent(out) :: integral, abserr
8689 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8690 integer(IK) , intent(out) , contiguous :: sindex(:)
8691 integer(IK) , intent(out) :: neval
8692 integer(IK) , intent(out) :: nint
8693 integer(IK) :: err
8694 end function
8695#endif
8696
8697#if RK2_ENABLED
8698 module function QAGS_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8700 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK2
8701#endif
8702 use pm_kind, only: RKC => RK2
8703 procedure(real(RKC)) :: getFunc
8704 real(RKC) , intent(in) :: lb
8705 real(RKC) , intent(in) :: ub
8706 real(RKC) , intent(in) :: abstol
8707 real(RKC) , intent(in) :: reltol
8708 type(GK15_type) , intent(in) :: qrule
8709 type(weps_type) , intent(in) :: help
8710 real(RKC) , intent(out) :: integral, abserr
8711 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8712 integer(IK) , intent(out) , contiguous :: sindex(:)
8713 integer(IK) , intent(out) :: neval
8714 integer(IK) , intent(out) :: nint
8715 integer(IK) :: err
8716 end function
8717#endif
8718
8719#if RK1_ENABLED
8720 module function QAGS_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8722 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK1
8723#endif
8724 use pm_kind, only: RKC => RK1
8725 procedure(real(RKC)) :: getFunc
8726 real(RKC) , intent(in) :: lb
8727 real(RKC) , intent(in) :: ub
8728 real(RKC) , intent(in) :: abstol
8729 real(RKC) , intent(in) :: reltol
8730 type(GK15_type) , intent(in) :: qrule
8731 type(weps_type) , intent(in) :: help
8732 real(RKC) , intent(out) :: integral, abserr
8733 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8734 integer(IK) , intent(out) , contiguous :: sindex(:)
8735 integer(IK) , intent(out) :: neval
8736 integer(IK) , intent(out) :: nint
8737 integer(IK) :: err
8738 end function
8739#endif
8740
8741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8742
8743#if RK5_ENABLED
8744 module function QAGS_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK5
8747#endif
8748 use pm_kind, only: RKC => RK5
8749 procedure(real(RKC)) :: getFunc
8750 real(RKC) , intent(in) :: lb
8751 type(pinf_type) , intent(in) :: ub
8752 real(RKC) , intent(in) :: abstol
8753 real(RKC) , intent(in) :: reltol
8754 type(GK15_type) , intent(in) :: qrule
8755 type(weps_type) , intent(in) :: help
8756 real(RKC) , intent(out) :: integral, abserr
8757 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8758 integer(IK) , intent(out) , contiguous :: sindex(:)
8759 integer(IK) , intent(out) :: neval
8760 integer(IK) , intent(out) :: nint
8761 integer(IK) :: err
8762 end function
8763#endif
8764
8765#if RK4_ENABLED
8766 module function QAGS_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK4
8769#endif
8770 use pm_kind, only: RKC => RK4
8771 procedure(real(RKC)) :: getFunc
8772 real(RKC) , intent(in) :: lb
8773 type(pinf_type) , intent(in) :: ub
8774 real(RKC) , intent(in) :: abstol
8775 real(RKC) , intent(in) :: reltol
8776 type(GK15_type) , intent(in) :: qrule
8777 type(weps_type) , intent(in) :: help
8778 real(RKC) , intent(out) :: integral, abserr
8779 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8780 integer(IK) , intent(out) , contiguous :: sindex(:)
8781 integer(IK) , intent(out) :: neval
8782 integer(IK) , intent(out) :: nint
8783 integer(IK) :: err
8784 end function
8785#endif
8786
8787#if RK3_ENABLED
8788 module function QAGS_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8790 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK3
8791#endif
8792 use pm_kind, only: RKC => RK3
8793 procedure(real(RKC)) :: getFunc
8794 real(RKC) , intent(in) :: lb
8795 type(pinf_type) , intent(in) :: ub
8796 real(RKC) , intent(in) :: abstol
8797 real(RKC) , intent(in) :: reltol
8798 type(GK15_type) , intent(in) :: qrule
8799 type(weps_type) , intent(in) :: help
8800 real(RKC) , intent(out) :: integral, abserr
8801 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8802 integer(IK) , intent(out) , contiguous :: sindex(:)
8803 integer(IK) , intent(out) :: neval
8804 integer(IK) , intent(out) :: nint
8805 integer(IK) :: err
8806 end function
8807#endif
8808
8809#if RK2_ENABLED
8810 module function QAGS_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8812 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK2
8813#endif
8814 use pm_kind, only: RKC => RK2
8815 procedure(real(RKC)) :: getFunc
8816 real(RKC) , intent(in) :: lb
8817 type(pinf_type) , intent(in) :: ub
8818 real(RKC) , intent(in) :: abstol
8819 real(RKC) , intent(in) :: reltol
8820 type(GK15_type) , intent(in) :: qrule
8821 type(weps_type) , intent(in) :: help
8822 real(RKC) , intent(out) :: integral, abserr
8823 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8824 integer(IK) , intent(out) , contiguous :: sindex(:)
8825 integer(IK) , intent(out) :: neval
8826 integer(IK) , intent(out) :: nint
8827 integer(IK) :: err
8828 end function
8829#endif
8830
8831#if RK1_ENABLED
8832 module function QAGS_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK1
8835#endif
8836 use pm_kind, only: RKC => RK1
8837 procedure(real(RKC)) :: getFunc
8838 real(RKC) , intent(in) :: lb
8839 type(pinf_type) , intent(in) :: ub
8840 real(RKC) , intent(in) :: abstol
8841 real(RKC) , intent(in) :: reltol
8842 type(GK15_type) , intent(in) :: qrule
8843 type(weps_type) , intent(in) :: help
8844 real(RKC) , intent(out) :: integral, abserr
8845 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8846 integer(IK) , intent(out) , contiguous :: sindex(:)
8847 integer(IK) , intent(out) :: neval
8848 integer(IK) , intent(out) :: nint
8849 integer(IK) :: err
8850 end function
8851#endif
8852
8853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8854
8855#if RK5_ENABLED
8856 module function QAGS_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK5
8859#endif
8860 use pm_kind, only: RKC => RK5
8861 procedure(real(RKC)) :: getFunc
8862 type(ninf_type) , intent(in) :: lb
8863 real(RKC) , intent(in) :: ub
8864 real(RKC) , intent(in) :: abstol
8865 real(RKC) , intent(in) :: reltol
8866 type(GK15_type) , intent(in) :: qrule
8867 type(weps_type) , intent(in) :: help
8868 real(RKC) , intent(out) :: integral, abserr
8869 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8870 integer(IK) , intent(out) , contiguous :: sindex(:)
8871 integer(IK) , intent(out) :: neval
8872 integer(IK) , intent(out) :: nint
8873 integer(IK) :: err
8874 end function
8875#endif
8876
8877#if RK4_ENABLED
8878 module function QAGS_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK4
8881#endif
8882 use pm_kind, only: RKC => RK4
8883 procedure(real(RKC)) :: getFunc
8884 type(ninf_type) , intent(in) :: lb
8885 real(RKC) , intent(in) :: ub
8886 real(RKC) , intent(in) :: abstol
8887 real(RKC) , intent(in) :: reltol
8888 type(GK15_type) , intent(in) :: qrule
8889 type(weps_type) , intent(in) :: help
8890 real(RKC) , intent(out) :: integral, abserr
8891 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8892 integer(IK) , intent(out) , contiguous :: sindex(:)
8893 integer(IK) , intent(out) :: neval
8894 integer(IK) , intent(out) :: nint
8895 integer(IK) :: err
8896 end function
8897#endif
8898
8899#if RK3_ENABLED
8900 module function QAGS_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8902 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK3
8903#endif
8904 use pm_kind, only: RKC => RK3
8905 procedure(real(RKC)) :: getFunc
8906 type(ninf_type) , intent(in) :: lb
8907 real(RKC) , intent(in) :: ub
8908 real(RKC) , intent(in) :: abstol
8909 real(RKC) , intent(in) :: reltol
8910 type(GK15_type) , intent(in) :: qrule
8911 type(weps_type) , intent(in) :: help
8912 real(RKC) , intent(out) :: integral, abserr
8913 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8914 integer(IK) , intent(out) , contiguous :: sindex(:)
8915 integer(IK) , intent(out) :: neval
8916 integer(IK) , intent(out) :: nint
8917 integer(IK) :: err
8918 end function
8919#endif
8920
8921#if RK2_ENABLED
8922 module function QAGS_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8924 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK2
8925#endif
8926 use pm_kind, only: RKC => RK2
8927 procedure(real(RKC)) :: getFunc
8928 type(ninf_type) , intent(in) :: lb
8929 real(RKC) , intent(in) :: ub
8930 real(RKC) , intent(in) :: abstol
8931 real(RKC) , intent(in) :: reltol
8932 type(GK15_type) , intent(in) :: qrule
8933 type(weps_type) , intent(in) :: help
8934 real(RKC) , intent(out) :: integral, abserr
8935 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8936 integer(IK) , intent(out) , contiguous :: sindex(:)
8937 integer(IK) , intent(out) :: neval
8938 integer(IK) , intent(out) :: nint
8939 integer(IK) :: err
8940 end function
8941#endif
8942
8943#if RK1_ENABLED
8944 module function QAGS_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8946 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK1
8947#endif
8948 use pm_kind, only: RKC => RK1
8949 procedure(real(RKC)) :: getFunc
8950 type(ninf_type) , intent(in) :: lb
8951 real(RKC) , intent(in) :: ub
8952 real(RKC) , intent(in) :: abstol
8953 real(RKC) , intent(in) :: reltol
8954 type(GK15_type) , intent(in) :: qrule
8955 type(weps_type) , intent(in) :: help
8956 real(RKC) , intent(out) :: integral, abserr
8957 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8958 integer(IK) , intent(out) , contiguous :: sindex(:)
8959 integer(IK) , intent(out) :: neval
8960 integer(IK) , intent(out) :: nint
8961 integer(IK) :: err
8962 end function
8963#endif
8964
8965 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8966
8967#if RK5_ENABLED
8968 module function QAGS_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK5
8971#endif
8972 use pm_kind, only: RKC => RK5
8973 procedure(real(RKC)) :: getFunc
8974 type(ninf_type) , intent(in) :: lb
8975 type(pinf_type) , intent(in) :: ub
8976 real(RKC) , intent(in) :: abstol
8977 real(RKC) , intent(in) :: reltol
8978 type(GK15_type) , intent(in) :: qrule
8979 type(weps_type) , intent(in) :: help
8980 real(RKC) , intent(out) :: integral, abserr
8981 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8982 integer(IK) , intent(out) , contiguous :: sindex(:)
8983 integer(IK) , intent(out) :: neval
8984 integer(IK) , intent(out) :: nint
8985 integer(IK) :: err
8986 end function
8987#endif
8988
8989#if RK4_ENABLED
8990 module function QAGS_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8992 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK4
8993#endif
8994 use pm_kind, only: RKC => RK4
8995 procedure(real(RKC)) :: getFunc
8996 type(ninf_type) , intent(in) :: lb
8997 type(pinf_type) , intent(in) :: ub
8998 real(RKC) , intent(in) :: abstol
8999 real(RKC) , intent(in) :: reltol
9000 type(GK15_type) , intent(in) :: qrule
9001 type(weps_type) , intent(in) :: help
9002 real(RKC) , intent(out) :: integral, abserr
9003 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9004 integer(IK) , intent(out) , contiguous :: sindex(:)
9005 integer(IK) , intent(out) :: neval
9006 integer(IK) , intent(out) :: nint
9007 integer(IK) :: err
9008 end function
9009#endif
9010
9011#if RK3_ENABLED
9012 module function QAGS_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK3
9015#endif
9016 use pm_kind, only: RKC => RK3
9017 procedure(real(RKC)) :: getFunc
9018 type(ninf_type) , intent(in) :: lb
9019 type(pinf_type) , intent(in) :: ub
9020 real(RKC) , intent(in) :: abstol
9021 real(RKC) , intent(in) :: reltol
9022 type(GK15_type) , intent(in) :: qrule
9023 type(weps_type) , intent(in) :: help
9024 real(RKC) , intent(out) :: integral, abserr
9025 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9026 integer(IK) , intent(out) , contiguous :: sindex(:)
9027 integer(IK) , intent(out) :: neval
9028 integer(IK) , intent(out) :: nint
9029 integer(IK) :: err
9030 end function
9031#endif
9032
9033#if RK2_ENABLED
9034 module function QAGS_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9036 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK2
9037#endif
9038 use pm_kind, only: RKC => RK2
9039 procedure(real(RKC)) :: getFunc
9040 type(ninf_type) , intent(in) :: lb
9041 type(pinf_type) , intent(in) :: ub
9042 real(RKC) , intent(in) :: abstol
9043 real(RKC) , intent(in) :: reltol
9044 type(GK15_type) , intent(in) :: qrule
9045 type(weps_type) , intent(in) :: help
9046 real(RKC) , intent(out) :: integral, abserr
9047 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9048 integer(IK) , intent(out) , contiguous :: sindex(:)
9049 integer(IK) , intent(out) :: neval
9050 integer(IK) , intent(out) :: nint
9051 integer(IK) :: err
9052 end function
9053#endif
9054
9055#if RK1_ENABLED
9056 module function QAGS_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK1
9059#endif
9060 use pm_kind, only: RKC => RK1
9061 procedure(real(RKC)) :: getFunc
9062 type(ninf_type) , intent(in) :: lb
9063 type(pinf_type) , intent(in) :: ub
9064 real(RKC) , intent(in) :: abstol
9065 real(RKC) , intent(in) :: reltol
9066 type(GK15_type) , intent(in) :: qrule
9067 type(weps_type) , intent(in) :: help
9068 real(RKC) , intent(out) :: integral, abserr
9069 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9070 integer(IK) , intent(out) , contiguous :: sindex(:)
9071 integer(IK) , intent(out) :: neval
9072 integer(IK) , intent(out) :: nint
9073 integer(IK) :: err
9074 end function
9075#endif
9076
9077 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9078
9079 end interface
9080
9081 ! QAGS_GK21
9082
9083 interface getQuadErr
9084
9085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9086
9087#if RK5_ENABLED
9088 module function QAGS_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9090 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK5
9091#endif
9092 use pm_kind, only: RKC => RK5
9093 procedure(real(RKC)) :: getFunc
9094 real(RKC) , intent(in) :: lb
9095 real(RKC) , intent(in) :: ub
9096 real(RKC) , intent(in) :: abstol
9097 real(RKC) , intent(in) :: reltol
9098 type(GK21_type) , intent(in) :: qrule
9099 type(weps_type) , intent(in) :: help
9100 real(RKC) , intent(out) :: integral, abserr
9101 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9102 integer(IK) , intent(out) , contiguous :: sindex(:)
9103 integer(IK) , intent(out) :: neval
9104 integer(IK) , intent(out) :: nint
9105 integer(IK) :: err
9106 end function
9107#endif
9108
9109#if RK4_ENABLED
9110 module function QAGS_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9112 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK4
9113#endif
9114 use pm_kind, only: RKC => RK4
9115 procedure(real(RKC)) :: getFunc
9116 real(RKC) , intent(in) :: lb
9117 real(RKC) , intent(in) :: ub
9118 real(RKC) , intent(in) :: abstol
9119 real(RKC) , intent(in) :: reltol
9120 type(GK21_type) , intent(in) :: qrule
9121 type(weps_type) , intent(in) :: help
9122 real(RKC) , intent(out) :: integral, abserr
9123 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9124 integer(IK) , intent(out) , contiguous :: sindex(:)
9125 integer(IK) , intent(out) :: neval
9126 integer(IK) , intent(out) :: nint
9127 integer(IK) :: err
9128 end function
9129#endif
9130
9131#if RK3_ENABLED
9132 module function QAGS_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9134 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK3
9135#endif
9136 use pm_kind, only: RKC => RK3
9137 procedure(real(RKC)) :: getFunc
9138 real(RKC) , intent(in) :: lb
9139 real(RKC) , intent(in) :: ub
9140 real(RKC) , intent(in) :: abstol
9141 real(RKC) , intent(in) :: reltol
9142 type(GK21_type) , intent(in) :: qrule
9143 type(weps_type) , intent(in) :: help
9144 real(RKC) , intent(out) :: integral, abserr
9145 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9146 integer(IK) , intent(out) , contiguous :: sindex(:)
9147 integer(IK) , intent(out) :: neval
9148 integer(IK) , intent(out) :: nint
9149 integer(IK) :: err
9150 end function
9151#endif
9152
9153#if RK2_ENABLED
9154 module function QAGS_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9156 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK2
9157#endif
9158 use pm_kind, only: RKC => RK2
9159 procedure(real(RKC)) :: getFunc
9160 real(RKC) , intent(in) :: lb
9161 real(RKC) , intent(in) :: ub
9162 real(RKC) , intent(in) :: abstol
9163 real(RKC) , intent(in) :: reltol
9164 type(GK21_type) , intent(in) :: qrule
9165 type(weps_type) , intent(in) :: help
9166 real(RKC) , intent(out) :: integral, abserr
9167 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9168 integer(IK) , intent(out) , contiguous :: sindex(:)
9169 integer(IK) , intent(out) :: neval
9170 integer(IK) , intent(out) :: nint
9171 integer(IK) :: err
9172 end function
9173#endif
9174
9175#if RK1_ENABLED
9176 module function QAGS_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9178 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK1
9179#endif
9180 use pm_kind, only: RKC => RK1
9181 procedure(real(RKC)) :: getFunc
9182 real(RKC) , intent(in) :: lb
9183 real(RKC) , intent(in) :: ub
9184 real(RKC) , intent(in) :: abstol
9185 real(RKC) , intent(in) :: reltol
9186 type(GK21_type) , intent(in) :: qrule
9187 type(weps_type) , intent(in) :: help
9188 real(RKC) , intent(out) :: integral, abserr
9189 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9190 integer(IK) , intent(out) , contiguous :: sindex(:)
9191 integer(IK) , intent(out) :: neval
9192 integer(IK) , intent(out) :: nint
9193 integer(IK) :: err
9194 end function
9195#endif
9196
9197 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9198
9199#if RK5_ENABLED
9200 module function QAGS_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9202 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK5
9203#endif
9204 use pm_kind, only: RKC => RK5
9205 procedure(real(RKC)) :: getFunc
9206 real(RKC) , intent(in) :: lb
9207 type(pinf_type) , intent(in) :: ub
9208 real(RKC) , intent(in) :: abstol
9209 real(RKC) , intent(in) :: reltol
9210 type(GK21_type) , intent(in) :: qrule
9211 type(weps_type) , intent(in) :: help
9212 real(RKC) , intent(out) :: integral, abserr
9213 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9214 integer(IK) , intent(out) , contiguous :: sindex(:)
9215 integer(IK) , intent(out) :: neval
9216 integer(IK) , intent(out) :: nint
9217 integer(IK) :: err
9218 end function
9219#endif
9220
9221#if RK4_ENABLED
9222 module function QAGS_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9224 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK4
9225#endif
9226 use pm_kind, only: RKC => RK4
9227 procedure(real(RKC)) :: getFunc
9228 real(RKC) , intent(in) :: lb
9229 type(pinf_type) , intent(in) :: ub
9230 real(RKC) , intent(in) :: abstol
9231 real(RKC) , intent(in) :: reltol
9232 type(GK21_type) , intent(in) :: qrule
9233 type(weps_type) , intent(in) :: help
9234 real(RKC) , intent(out) :: integral, abserr
9235 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9236 integer(IK) , intent(out) , contiguous :: sindex(:)
9237 integer(IK) , intent(out) :: neval
9238 integer(IK) , intent(out) :: nint
9239 integer(IK) :: err
9240 end function
9241#endif
9242
9243#if RK3_ENABLED
9244 module function QAGS_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9246 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK3
9247#endif
9248 use pm_kind, only: RKC => RK3
9249 procedure(real(RKC)) :: getFunc
9250 real(RKC) , intent(in) :: lb
9251 type(pinf_type) , intent(in) :: ub
9252 real(RKC) , intent(in) :: abstol
9253 real(RKC) , intent(in) :: reltol
9254 type(GK21_type) , intent(in) :: qrule
9255 type(weps_type) , intent(in) :: help
9256 real(RKC) , intent(out) :: integral, abserr
9257 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9258 integer(IK) , intent(out) , contiguous :: sindex(:)
9259 integer(IK) , intent(out) :: neval
9260 integer(IK) , intent(out) :: nint
9261 integer(IK) :: err
9262 end function
9263#endif
9264
9265#if RK2_ENABLED
9266 module function QAGS_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9268 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK2
9269#endif
9270 use pm_kind, only: RKC => RK2
9271 procedure(real(RKC)) :: getFunc
9272 real(RKC) , intent(in) :: lb
9273 type(pinf_type) , intent(in) :: ub
9274 real(RKC) , intent(in) :: abstol
9275 real(RKC) , intent(in) :: reltol
9276 type(GK21_type) , intent(in) :: qrule
9277 type(weps_type) , intent(in) :: help
9278 real(RKC) , intent(out) :: integral, abserr
9279 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9280 integer(IK) , intent(out) , contiguous :: sindex(:)
9281 integer(IK) , intent(out) :: neval
9282 integer(IK) , intent(out) :: nint
9283 integer(IK) :: err
9284 end function
9285#endif
9286
9287#if RK1_ENABLED
9288 module function QAGS_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9290 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK1
9291#endif
9292 use pm_kind, only: RKC => RK1
9293 procedure(real(RKC)) :: getFunc
9294 real(RKC) , intent(in) :: lb
9295 type(pinf_type) , intent(in) :: ub
9296 real(RKC) , intent(in) :: abstol
9297 real(RKC) , intent(in) :: reltol
9298 type(GK21_type) , intent(in) :: qrule
9299 type(weps_type) , intent(in) :: help
9300 real(RKC) , intent(out) :: integral, abserr
9301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9302 integer(IK) , intent(out) , contiguous :: sindex(:)
9303 integer(IK) , intent(out) :: neval
9304 integer(IK) , intent(out) :: nint
9305 integer(IK) :: err
9306 end function
9307#endif
9308
9309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9310
9311#if RK5_ENABLED
9312 module function QAGS_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK5
9315#endif
9316 use pm_kind, only: RKC => RK5
9317 procedure(real(RKC)) :: getFunc
9318 type(ninf_type) , intent(in) :: lb
9319 real(RKC) , intent(in) :: ub
9320 real(RKC) , intent(in) :: abstol
9321 real(RKC) , intent(in) :: reltol
9322 type(GK21_type) , intent(in) :: qrule
9323 type(weps_type) , intent(in) :: help
9324 real(RKC) , intent(out) :: integral, abserr
9325 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9326 integer(IK) , intent(out) , contiguous :: sindex(:)
9327 integer(IK) , intent(out) :: neval
9328 integer(IK) , intent(out) :: nint
9329 integer(IK) :: err
9330 end function
9331#endif
9332
9333#if RK4_ENABLED
9334 module function QAGS_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9336 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK4
9337#endif
9338 use pm_kind, only: RKC => RK4
9339 procedure(real(RKC)) :: getFunc
9340 type(ninf_type) , intent(in) :: lb
9341 real(RKC) , intent(in) :: ub
9342 real(RKC) , intent(in) :: abstol
9343 real(RKC) , intent(in) :: reltol
9344 type(GK21_type) , intent(in) :: qrule
9345 type(weps_type) , intent(in) :: help
9346 real(RKC) , intent(out) :: integral, abserr
9347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9348 integer(IK) , intent(out) , contiguous :: sindex(:)
9349 integer(IK) , intent(out) :: neval
9350 integer(IK) , intent(out) :: nint
9351 integer(IK) :: err
9352 end function
9353#endif
9354
9355#if RK3_ENABLED
9356 module function QAGS_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9358 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK3
9359#endif
9360 use pm_kind, only: RKC => RK3
9361 procedure(real(RKC)) :: getFunc
9362 type(ninf_type) , intent(in) :: lb
9363 real(RKC) , intent(in) :: ub
9364 real(RKC) , intent(in) :: abstol
9365 real(RKC) , intent(in) :: reltol
9366 type(GK21_type) , intent(in) :: qrule
9367 type(weps_type) , intent(in) :: help
9368 real(RKC) , intent(out) :: integral, abserr
9369 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9370 integer(IK) , intent(out) , contiguous :: sindex(:)
9371 integer(IK) , intent(out) :: neval
9372 integer(IK) , intent(out) :: nint
9373 integer(IK) :: err
9374 end function
9375#endif
9376
9377#if RK2_ENABLED
9378 module function QAGS_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9380 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK2
9381#endif
9382 use pm_kind, only: RKC => RK2
9383 procedure(real(RKC)) :: getFunc
9384 type(ninf_type) , intent(in) :: lb
9385 real(RKC) , intent(in) :: ub
9386 real(RKC) , intent(in) :: abstol
9387 real(RKC) , intent(in) :: reltol
9388 type(GK21_type) , intent(in) :: qrule
9389 type(weps_type) , intent(in) :: help
9390 real(RKC) , intent(out) :: integral, abserr
9391 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9392 integer(IK) , intent(out) , contiguous :: sindex(:)
9393 integer(IK) , intent(out) :: neval
9394 integer(IK) , intent(out) :: nint
9395 integer(IK) :: err
9396 end function
9397#endif
9398
9399#if RK1_ENABLED
9400 module function QAGS_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9402 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK1
9403#endif
9404 use pm_kind, only: RKC => RK1
9405 procedure(real(RKC)) :: getFunc
9406 type(ninf_type) , intent(in) :: lb
9407 real(RKC) , intent(in) :: ub
9408 real(RKC) , intent(in) :: abstol
9409 real(RKC) , intent(in) :: reltol
9410 type(GK21_type) , intent(in) :: qrule
9411 type(weps_type) , intent(in) :: help
9412 real(RKC) , intent(out) :: integral, abserr
9413 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9414 integer(IK) , intent(out) , contiguous :: sindex(:)
9415 integer(IK) , intent(out) :: neval
9416 integer(IK) , intent(out) :: nint
9417 integer(IK) :: err
9418 end function
9419#endif
9420
9421 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9422
9423#if RK5_ENABLED
9424 module function QAGS_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9426 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK5
9427#endif
9428 use pm_kind, only: RKC => RK5
9429 procedure(real(RKC)) :: getFunc
9430 type(ninf_type) , intent(in) :: lb
9431 type(pinf_type) , intent(in) :: ub
9432 real(RKC) , intent(in) :: abstol
9433 real(RKC) , intent(in) :: reltol
9434 type(GK21_type) , intent(in) :: qrule
9435 type(weps_type) , intent(in) :: help
9436 real(RKC) , intent(out) :: integral, abserr
9437 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9438 integer(IK) , intent(out) , contiguous :: sindex(:)
9439 integer(IK) , intent(out) :: neval
9440 integer(IK) , intent(out) :: nint
9441 integer(IK) :: err
9442 end function
9443#endif
9444
9445#if RK4_ENABLED
9446 module function QAGS_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9448 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK4
9449#endif
9450 use pm_kind, only: RKC => RK4
9451 procedure(real(RKC)) :: getFunc
9452 type(ninf_type) , intent(in) :: lb
9453 type(pinf_type) , intent(in) :: ub
9454 real(RKC) , intent(in) :: abstol
9455 real(RKC) , intent(in) :: reltol
9456 type(GK21_type) , intent(in) :: qrule
9457 type(weps_type) , intent(in) :: help
9458 real(RKC) , intent(out) :: integral, abserr
9459 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9460 integer(IK) , intent(out) , contiguous :: sindex(:)
9461 integer(IK) , intent(out) :: neval
9462 integer(IK) , intent(out) :: nint
9463 integer(IK) :: err
9464 end function
9465#endif
9466
9467#if RK3_ENABLED
9468 module function QAGS_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9470 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK3
9471#endif
9472 use pm_kind, only: RKC => RK3
9473 procedure(real(RKC)) :: getFunc
9474 type(ninf_type) , intent(in) :: lb
9475 type(pinf_type) , intent(in) :: ub
9476 real(RKC) , intent(in) :: abstol
9477 real(RKC) , intent(in) :: reltol
9478 type(GK21_type) , intent(in) :: qrule
9479 type(weps_type) , intent(in) :: help
9480 real(RKC) , intent(out) :: integral, abserr
9481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9482 integer(IK) , intent(out) , contiguous :: sindex(:)
9483 integer(IK) , intent(out) :: neval
9484 integer(IK) , intent(out) :: nint
9485 integer(IK) :: err
9486 end function
9487#endif
9488
9489#if RK2_ENABLED
9490 module function QAGS_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK2
9493#endif
9494 use pm_kind, only: RKC => RK2
9495 procedure(real(RKC)) :: getFunc
9496 type(ninf_type) , intent(in) :: lb
9497 type(pinf_type) , intent(in) :: ub
9498 real(RKC) , intent(in) :: abstol
9499 real(RKC) , intent(in) :: reltol
9500 type(GK21_type) , intent(in) :: qrule
9501 type(weps_type) , intent(in) :: help
9502 real(RKC) , intent(out) :: integral, abserr
9503 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9504 integer(IK) , intent(out) , contiguous :: sindex(:)
9505 integer(IK) , intent(out) :: neval
9506 integer(IK) , intent(out) :: nint
9507 integer(IK) :: err
9508 end function
9509#endif
9510
9511#if RK1_ENABLED
9512 module function QAGS_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9514 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK1
9515#endif
9516 use pm_kind, only: RKC => RK1
9517 procedure(real(RKC)) :: getFunc
9518 type(ninf_type) , intent(in) :: lb
9519 type(pinf_type) , intent(in) :: ub
9520 real(RKC) , intent(in) :: abstol
9521 real(RKC) , intent(in) :: reltol
9522 type(GK21_type) , intent(in) :: qrule
9523 type(weps_type) , intent(in) :: help
9524 real(RKC) , intent(out) :: integral, abserr
9525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9526 integer(IK) , intent(out) , contiguous :: sindex(:)
9527 integer(IK) , intent(out) :: neval
9528 integer(IK) , intent(out) :: nint
9529 integer(IK) :: err
9530 end function
9531#endif
9532
9533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9534
9535 end interface
9536
9537 ! QAGS_GK31
9538
9539 interface getQuadErr
9540
9541 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9542
9543#if RK5_ENABLED
9544 module function QAGS_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9546 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK5
9547#endif
9548 use pm_kind, only: RKC => RK5
9549 procedure(real(RKC)) :: getFunc
9550 real(RKC) , intent(in) :: lb
9551 real(RKC) , intent(in) :: ub
9552 real(RKC) , intent(in) :: abstol
9553 real(RKC) , intent(in) :: reltol
9554 type(GK31_type) , intent(in) :: qrule
9555 type(weps_type) , intent(in) :: help
9556 real(RKC) , intent(out) :: integral, abserr
9557 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9558 integer(IK) , intent(out) , contiguous :: sindex(:)
9559 integer(IK) , intent(out) :: neval
9560 integer(IK) , intent(out) :: nint
9561 integer(IK) :: err
9562 end function
9563#endif
9564
9565#if RK4_ENABLED
9566 module function QAGS_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9568 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK4
9569#endif
9570 use pm_kind, only: RKC => RK4
9571 procedure(real(RKC)) :: getFunc
9572 real(RKC) , intent(in) :: lb
9573 real(RKC) , intent(in) :: ub
9574 real(RKC) , intent(in) :: abstol
9575 real(RKC) , intent(in) :: reltol
9576 type(GK31_type) , intent(in) :: qrule
9577 type(weps_type) , intent(in) :: help
9578 real(RKC) , intent(out) :: integral, abserr
9579 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9580 integer(IK) , intent(out) , contiguous :: sindex(:)
9581 integer(IK) , intent(out) :: neval
9582 integer(IK) , intent(out) :: nint
9583 integer(IK) :: err
9584 end function
9585#endif
9586
9587#if RK3_ENABLED
9588 module function QAGS_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9590 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK3
9591#endif
9592 use pm_kind, only: RKC => RK3
9593 procedure(real(RKC)) :: getFunc
9594 real(RKC) , intent(in) :: lb
9595 real(RKC) , intent(in) :: ub
9596 real(RKC) , intent(in) :: abstol
9597 real(RKC) , intent(in) :: reltol
9598 type(GK31_type) , intent(in) :: qrule
9599 type(weps_type) , intent(in) :: help
9600 real(RKC) , intent(out) :: integral, abserr
9601 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9602 integer(IK) , intent(out) , contiguous :: sindex(:)
9603 integer(IK) , intent(out) :: neval
9604 integer(IK) , intent(out) :: nint
9605 integer(IK) :: err
9606 end function
9607#endif
9608
9609#if RK2_ENABLED
9610 module function QAGS_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9612 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK2
9613#endif
9614 use pm_kind, only: RKC => RK2
9615 procedure(real(RKC)) :: getFunc
9616 real(RKC) , intent(in) :: lb
9617 real(RKC) , intent(in) :: ub
9618 real(RKC) , intent(in) :: abstol
9619 real(RKC) , intent(in) :: reltol
9620 type(GK31_type) , intent(in) :: qrule
9621 type(weps_type) , intent(in) :: help
9622 real(RKC) , intent(out) :: integral, abserr
9623 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9624 integer(IK) , intent(out) , contiguous :: sindex(:)
9625 integer(IK) , intent(out) :: neval
9626 integer(IK) , intent(out) :: nint
9627 integer(IK) :: err
9628 end function
9629#endif
9630
9631#if RK1_ENABLED
9632 module function QAGS_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9634 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK1
9635#endif
9636 use pm_kind, only: RKC => RK1
9637 procedure(real(RKC)) :: getFunc
9638 real(RKC) , intent(in) :: lb
9639 real(RKC) , intent(in) :: ub
9640 real(RKC) , intent(in) :: abstol
9641 real(RKC) , intent(in) :: reltol
9642 type(GK31_type) , intent(in) :: qrule
9643 type(weps_type) , intent(in) :: help
9644 real(RKC) , intent(out) :: integral, abserr
9645 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9646 integer(IK) , intent(out) , contiguous :: sindex(:)
9647 integer(IK) , intent(out) :: neval
9648 integer(IK) , intent(out) :: nint
9649 integer(IK) :: err
9650 end function
9651#endif
9652
9653 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9654
9655#if RK5_ENABLED
9656 module function QAGS_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9658 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK5
9659#endif
9660 use pm_kind, only: RKC => RK5
9661 procedure(real(RKC)) :: getFunc
9662 real(RKC) , intent(in) :: lb
9663 type(pinf_type) , intent(in) :: ub
9664 real(RKC) , intent(in) :: abstol
9665 real(RKC) , intent(in) :: reltol
9666 type(GK31_type) , intent(in) :: qrule
9667 type(weps_type) , intent(in) :: help
9668 real(RKC) , intent(out) :: integral, abserr
9669 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9670 integer(IK) , intent(out) , contiguous :: sindex(:)
9671 integer(IK) , intent(out) :: neval
9672 integer(IK) , intent(out) :: nint
9673 integer(IK) :: err
9674 end function
9675#endif
9676
9677#if RK4_ENABLED
9678 module function QAGS_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9680 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK4
9681#endif
9682 use pm_kind, only: RKC => RK4
9683 procedure(real(RKC)) :: getFunc
9684 real(RKC) , intent(in) :: lb
9685 type(pinf_type) , intent(in) :: ub
9686 real(RKC) , intent(in) :: abstol
9687 real(RKC) , intent(in) :: reltol
9688 type(GK31_type) , intent(in) :: qrule
9689 type(weps_type) , intent(in) :: help
9690 real(RKC) , intent(out) :: integral, abserr
9691 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9692 integer(IK) , intent(out) , contiguous :: sindex(:)
9693 integer(IK) , intent(out) :: neval
9694 integer(IK) , intent(out) :: nint
9695 integer(IK) :: err
9696 end function
9697#endif
9698
9699#if RK3_ENABLED
9700 module function QAGS_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9702 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK3
9703#endif
9704 use pm_kind, only: RKC => RK3
9705 procedure(real(RKC)) :: getFunc
9706 real(RKC) , intent(in) :: lb
9707 type(pinf_type) , intent(in) :: ub
9708 real(RKC) , intent(in) :: abstol
9709 real(RKC) , intent(in) :: reltol
9710 type(GK31_type) , intent(in) :: qrule
9711 type(weps_type) , intent(in) :: help
9712 real(RKC) , intent(out) :: integral, abserr
9713 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9714 integer(IK) , intent(out) , contiguous :: sindex(:)
9715 integer(IK) , intent(out) :: neval
9716 integer(IK) , intent(out) :: nint
9717 integer(IK) :: err
9718 end function
9719#endif
9720
9721#if RK2_ENABLED
9722 module function QAGS_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9724 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK2
9725#endif
9726 use pm_kind, only: RKC => RK2
9727 procedure(real(RKC)) :: getFunc
9728 real(RKC) , intent(in) :: lb
9729 type(pinf_type) , intent(in) :: ub
9730 real(RKC) , intent(in) :: abstol
9731 real(RKC) , intent(in) :: reltol
9732 type(GK31_type) , intent(in) :: qrule
9733 type(weps_type) , intent(in) :: help
9734 real(RKC) , intent(out) :: integral, abserr
9735 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9736 integer(IK) , intent(out) , contiguous :: sindex(:)
9737 integer(IK) , intent(out) :: neval
9738 integer(IK) , intent(out) :: nint
9739 integer(IK) :: err
9740 end function
9741#endif
9742
9743#if RK1_ENABLED
9744 module function QAGS_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK1
9747#endif
9748 use pm_kind, only: RKC => RK1
9749 procedure(real(RKC)) :: getFunc
9750 real(RKC) , intent(in) :: lb
9751 type(pinf_type) , intent(in) :: ub
9752 real(RKC) , intent(in) :: abstol
9753 real(RKC) , intent(in) :: reltol
9754 type(GK31_type) , intent(in) :: qrule
9755 type(weps_type) , intent(in) :: help
9756 real(RKC) , intent(out) :: integral, abserr
9757 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9758 integer(IK) , intent(out) , contiguous :: sindex(:)
9759 integer(IK) , intent(out) :: neval
9760 integer(IK) , intent(out) :: nint
9761 integer(IK) :: err
9762 end function
9763#endif
9764
9765 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9766
9767#if RK5_ENABLED
9768 module function QAGS_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK5
9771#endif
9772 use pm_kind, only: RKC => RK5
9773 procedure(real(RKC)) :: getFunc
9774 type(ninf_type) , intent(in) :: lb
9775 real(RKC) , intent(in) :: ub
9776 real(RKC) , intent(in) :: abstol
9777 real(RKC) , intent(in) :: reltol
9778 type(GK31_type) , intent(in) :: qrule
9779 type(weps_type) , intent(in) :: help
9780 real(RKC) , intent(out) :: integral, abserr
9781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9782 integer(IK) , intent(out) , contiguous :: sindex(:)
9783 integer(IK) , intent(out) :: neval
9784 integer(IK) , intent(out) :: nint
9785 integer(IK) :: err
9786 end function
9787#endif
9788
9789#if RK4_ENABLED
9790 module function QAGS_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK4
9793#endif
9794 use pm_kind, only: RKC => RK4
9795 procedure(real(RKC)) :: getFunc
9796 type(ninf_type) , intent(in) :: lb
9797 real(RKC) , intent(in) :: ub
9798 real(RKC) , intent(in) :: abstol
9799 real(RKC) , intent(in) :: reltol
9800 type(GK31_type) , intent(in) :: qrule
9801 type(weps_type) , intent(in) :: help
9802 real(RKC) , intent(out) :: integral, abserr
9803 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9804 integer(IK) , intent(out) , contiguous :: sindex(:)
9805 integer(IK) , intent(out) :: neval
9806 integer(IK) , intent(out) :: nint
9807 integer(IK) :: err
9808 end function
9809#endif
9810
9811#if RK3_ENABLED
9812 module function QAGS_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9814 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK3
9815#endif
9816 use pm_kind, only: RKC => RK3
9817 procedure(real(RKC)) :: getFunc
9818 type(ninf_type) , intent(in) :: lb
9819 real(RKC) , intent(in) :: ub
9820 real(RKC) , intent(in) :: abstol
9821 real(RKC) , intent(in) :: reltol
9822 type(GK31_type) , intent(in) :: qrule
9823 type(weps_type) , intent(in) :: help
9824 real(RKC) , intent(out) :: integral, abserr
9825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9826 integer(IK) , intent(out) , contiguous :: sindex(:)
9827 integer(IK) , intent(out) :: neval
9828 integer(IK) , intent(out) :: nint
9829 integer(IK) :: err
9830 end function
9831#endif
9832
9833#if RK2_ENABLED
9834 module function QAGS_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK2
9837#endif
9838 use pm_kind, only: RKC => RK2
9839 procedure(real(RKC)) :: getFunc
9840 type(ninf_type) , intent(in) :: lb
9841 real(RKC) , intent(in) :: ub
9842 real(RKC) , intent(in) :: abstol
9843 real(RKC) , intent(in) :: reltol
9844 type(GK31_type) , intent(in) :: qrule
9845 type(weps_type) , intent(in) :: help
9846 real(RKC) , intent(out) :: integral, abserr
9847 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9848 integer(IK) , intent(out) , contiguous :: sindex(:)
9849 integer(IK) , intent(out) :: neval
9850 integer(IK) , intent(out) :: nint
9851 integer(IK) :: err
9852 end function
9853#endif
9854
9855#if RK1_ENABLED
9856 module function QAGS_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK1
9859#endif
9860 use pm_kind, only: RKC => RK1
9861 procedure(real(RKC)) :: getFunc
9862 type(ninf_type) , intent(in) :: lb
9863 real(RKC) , intent(in) :: ub
9864 real(RKC) , intent(in) :: abstol
9865 real(RKC) , intent(in) :: reltol
9866 type(GK31_type) , intent(in) :: qrule
9867 type(weps_type) , intent(in) :: help
9868 real(RKC) , intent(out) :: integral, abserr
9869 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9870 integer(IK) , intent(out) , contiguous :: sindex(:)
9871 integer(IK) , intent(out) :: neval
9872 integer(IK) , intent(out) :: nint
9873 integer(IK) :: err
9874 end function
9875#endif
9876
9877 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9878
9879#if RK5_ENABLED
9880 module function QAGS_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9882 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK5
9883#endif
9884 use pm_kind, only: RKC => RK5
9885 procedure(real(RKC)) :: getFunc
9886 type(ninf_type) , intent(in) :: lb
9887 type(pinf_type) , intent(in) :: ub
9888 real(RKC) , intent(in) :: abstol
9889 real(RKC) , intent(in) :: reltol
9890 type(GK31_type) , intent(in) :: qrule
9891 type(weps_type) , intent(in) :: help
9892 real(RKC) , intent(out) :: integral, abserr
9893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9894 integer(IK) , intent(out) , contiguous :: sindex(:)
9895 integer(IK) , intent(out) :: neval
9896 integer(IK) , intent(out) :: nint
9897 integer(IK) :: err
9898 end function
9899#endif
9900
9901#if RK4_ENABLED
9902 module function QAGS_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9904 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK4
9905#endif
9906 use pm_kind, only: RKC => RK4
9907 procedure(real(RKC)) :: getFunc
9908 type(ninf_type) , intent(in) :: lb
9909 type(pinf_type) , intent(in) :: ub
9910 real(RKC) , intent(in) :: abstol
9911 real(RKC) , intent(in) :: reltol
9912 type(GK31_type) , intent(in) :: qrule
9913 type(weps_type) , intent(in) :: help
9914 real(RKC) , intent(out) :: integral, abserr
9915 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9916 integer(IK) , intent(out) , contiguous :: sindex(:)
9917 integer(IK) , intent(out) :: neval
9918 integer(IK) , intent(out) :: nint
9919 integer(IK) :: err
9920 end function
9921#endif
9922
9923#if RK3_ENABLED
9924 module function QAGS_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9926 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK3
9927#endif
9928 use pm_kind, only: RKC => RK3
9929 procedure(real(RKC)) :: getFunc
9930 type(ninf_type) , intent(in) :: lb
9931 type(pinf_type) , intent(in) :: ub
9932 real(RKC) , intent(in) :: abstol
9933 real(RKC) , intent(in) :: reltol
9934 type(GK31_type) , intent(in) :: qrule
9935 type(weps_type) , intent(in) :: help
9936 real(RKC) , intent(out) :: integral, abserr
9937 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9938 integer(IK) , intent(out) , contiguous :: sindex(:)
9939 integer(IK) , intent(out) :: neval
9940 integer(IK) , intent(out) :: nint
9941 integer(IK) :: err
9942 end function
9943#endif
9944
9945#if RK2_ENABLED
9946 module function QAGS_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9948 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK2
9949#endif
9950 use pm_kind, only: RKC => RK2
9951 procedure(real(RKC)) :: getFunc
9952 type(ninf_type) , intent(in) :: lb
9953 type(pinf_type) , intent(in) :: ub
9954 real(RKC) , intent(in) :: abstol
9955 real(RKC) , intent(in) :: reltol
9956 type(GK31_type) , intent(in) :: qrule
9957 type(weps_type) , intent(in) :: help
9958 real(RKC) , intent(out) :: integral, abserr
9959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9960 integer(IK) , intent(out) , contiguous :: sindex(:)
9961 integer(IK) , intent(out) :: neval
9962 integer(IK) , intent(out) :: nint
9963 integer(IK) :: err
9964 end function
9965#endif
9966
9967#if RK1_ENABLED
9968 module function QAGS_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK1
9971#endif
9972 use pm_kind, only: RKC => RK1
9973 procedure(real(RKC)) :: getFunc
9974 type(ninf_type) , intent(in) :: lb
9975 type(pinf_type) , intent(in) :: ub
9976 real(RKC) , intent(in) :: abstol
9977 real(RKC) , intent(in) :: reltol
9978 type(GK31_type) , intent(in) :: qrule
9979 type(weps_type) , intent(in) :: help
9980 real(RKC) , intent(out) :: integral, abserr
9981 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9982 integer(IK) , intent(out) , contiguous :: sindex(:)
9983 integer(IK) , intent(out) :: neval
9984 integer(IK) , intent(out) :: nint
9985 integer(IK) :: err
9986 end function
9987#endif
9988
9989 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9990
9991 end interface
9992
9993 ! QAGS_GK41
9994
9995 interface getQuadErr
9996
9997 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9998
9999#if RK5_ENABLED
10000 module function QAGS_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10002 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK5
10003#endif
10004 use pm_kind, only: RKC => RK5
10005 procedure(real(RKC)) :: getFunc
10006 real(RKC) , intent(in) :: lb
10007 real(RKC) , intent(in) :: ub
10008 real(RKC) , intent(in) :: abstol
10009 real(RKC) , intent(in) :: reltol
10010 type(GK41_type) , intent(in) :: qrule
10011 type(weps_type) , intent(in) :: help
10012 real(RKC) , intent(out) :: integral, abserr
10013 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10014 integer(IK) , intent(out) , contiguous :: sindex(:)
10015 integer(IK) , intent(out) :: neval
10016 integer(IK) , intent(out) :: nint
10017 integer(IK) :: err
10018 end function
10019#endif
10020
10021#if RK4_ENABLED
10022 module function QAGS_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10024 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK4
10025#endif
10026 use pm_kind, only: RKC => RK4
10027 procedure(real(RKC)) :: getFunc
10028 real(RKC) , intent(in) :: lb
10029 real(RKC) , intent(in) :: ub
10030 real(RKC) , intent(in) :: abstol
10031 real(RKC) , intent(in) :: reltol
10032 type(GK41_type) , intent(in) :: qrule
10033 type(weps_type) , intent(in) :: help
10034 real(RKC) , intent(out) :: integral, abserr
10035 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10036 integer(IK) , intent(out) , contiguous :: sindex(:)
10037 integer(IK) , intent(out) :: neval
10038 integer(IK) , intent(out) :: nint
10039 integer(IK) :: err
10040 end function
10041#endif
10042
10043#if RK3_ENABLED
10044 module function QAGS_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10046 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK3
10047#endif
10048 use pm_kind, only: RKC => RK3
10049 procedure(real(RKC)) :: getFunc
10050 real(RKC) , intent(in) :: lb
10051 real(RKC) , intent(in) :: ub
10052 real(RKC) , intent(in) :: abstol
10053 real(RKC) , intent(in) :: reltol
10054 type(GK41_type) , intent(in) :: qrule
10055 type(weps_type) , intent(in) :: help
10056 real(RKC) , intent(out) :: integral, abserr
10057 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10058 integer(IK) , intent(out) , contiguous :: sindex(:)
10059 integer(IK) , intent(out) :: neval
10060 integer(IK) , intent(out) :: nint
10061 integer(IK) :: err
10062 end function
10063#endif
10064
10065#if RK2_ENABLED
10066 module function QAGS_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10068 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK2
10069#endif
10070 use pm_kind, only: RKC => RK2
10071 procedure(real(RKC)) :: getFunc
10072 real(RKC) , intent(in) :: lb
10073 real(RKC) , intent(in) :: ub
10074 real(RKC) , intent(in) :: abstol
10075 real(RKC) , intent(in) :: reltol
10076 type(GK41_type) , intent(in) :: qrule
10077 type(weps_type) , intent(in) :: help
10078 real(RKC) , intent(out) :: integral, abserr
10079 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10080 integer(IK) , intent(out) , contiguous :: sindex(:)
10081 integer(IK) , intent(out) :: neval
10082 integer(IK) , intent(out) :: nint
10083 integer(IK) :: err
10084 end function
10085#endif
10086
10087#if RK1_ENABLED
10088 module function QAGS_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10090 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK1
10091#endif
10092 use pm_kind, only: RKC => RK1
10093 procedure(real(RKC)) :: getFunc
10094 real(RKC) , intent(in) :: lb
10095 real(RKC) , intent(in) :: ub
10096 real(RKC) , intent(in) :: abstol
10097 real(RKC) , intent(in) :: reltol
10098 type(GK41_type) , intent(in) :: qrule
10099 type(weps_type) , intent(in) :: help
10100 real(RKC) , intent(out) :: integral, abserr
10101 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10102 integer(IK) , intent(out) , contiguous :: sindex(:)
10103 integer(IK) , intent(out) :: neval
10104 integer(IK) , intent(out) :: nint
10105 integer(IK) :: err
10106 end function
10107#endif
10108
10109 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10110
10111#if RK5_ENABLED
10112 module function QAGS_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10114 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK5
10115#endif
10116 use pm_kind, only: RKC => RK5
10117 procedure(real(RKC)) :: getFunc
10118 real(RKC) , intent(in) :: lb
10119 type(pinf_type) , intent(in) :: ub
10120 real(RKC) , intent(in) :: abstol
10121 real(RKC) , intent(in) :: reltol
10122 type(GK41_type) , intent(in) :: qrule
10123 type(weps_type) , intent(in) :: help
10124 real(RKC) , intent(out) :: integral, abserr
10125 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10126 integer(IK) , intent(out) , contiguous :: sindex(:)
10127 integer(IK) , intent(out) :: neval
10128 integer(IK) , intent(out) :: nint
10129 integer(IK) :: err
10130 end function
10131#endif
10132
10133#if RK4_ENABLED
10134 module function QAGS_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10136 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK4
10137#endif
10138 use pm_kind, only: RKC => RK4
10139 procedure(real(RKC)) :: getFunc
10140 real(RKC) , intent(in) :: lb
10141 type(pinf_type) , intent(in) :: ub
10142 real(RKC) , intent(in) :: abstol
10143 real(RKC) , intent(in) :: reltol
10144 type(GK41_type) , intent(in) :: qrule
10145 type(weps_type) , intent(in) :: help
10146 real(RKC) , intent(out) :: integral, abserr
10147 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10148 integer(IK) , intent(out) , contiguous :: sindex(:)
10149 integer(IK) , intent(out) :: neval
10150 integer(IK) , intent(out) :: nint
10151 integer(IK) :: err
10152 end function
10153#endif
10154
10155#if RK3_ENABLED
10156 module function QAGS_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10158 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK3
10159#endif
10160 use pm_kind, only: RKC => RK3
10161 procedure(real(RKC)) :: getFunc
10162 real(RKC) , intent(in) :: lb
10163 type(pinf_type) , intent(in) :: ub
10164 real(RKC) , intent(in) :: abstol
10165 real(RKC) , intent(in) :: reltol
10166 type(GK41_type) , intent(in) :: qrule
10167 type(weps_type) , intent(in) :: help
10168 real(RKC) , intent(out) :: integral, abserr
10169 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10170 integer(IK) , intent(out) , contiguous :: sindex(:)
10171 integer(IK) , intent(out) :: neval
10172 integer(IK) , intent(out) :: nint
10173 integer(IK) :: err
10174 end function
10175#endif
10176
10177#if RK2_ENABLED
10178 module function QAGS_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10180 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK2
10181#endif
10182 use pm_kind, only: RKC => RK2
10183 procedure(real(RKC)) :: getFunc
10184 real(RKC) , intent(in) :: lb
10185 type(pinf_type) , intent(in) :: ub
10186 real(RKC) , intent(in) :: abstol
10187 real(RKC) , intent(in) :: reltol
10188 type(GK41_type) , intent(in) :: qrule
10189 type(weps_type) , intent(in) :: help
10190 real(RKC) , intent(out) :: integral, abserr
10191 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10192 integer(IK) , intent(out) , contiguous :: sindex(:)
10193 integer(IK) , intent(out) :: neval
10194 integer(IK) , intent(out) :: nint
10195 integer(IK) :: err
10196 end function
10197#endif
10198
10199#if RK1_ENABLED
10200 module function QAGS_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10202 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK1
10203#endif
10204 use pm_kind, only: RKC => RK1
10205 procedure(real(RKC)) :: getFunc
10206 real(RKC) , intent(in) :: lb
10207 type(pinf_type) , intent(in) :: ub
10208 real(RKC) , intent(in) :: abstol
10209 real(RKC) , intent(in) :: reltol
10210 type(GK41_type) , intent(in) :: qrule
10211 type(weps_type) , intent(in) :: help
10212 real(RKC) , intent(out) :: integral, abserr
10213 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10214 integer(IK) , intent(out) , contiguous :: sindex(:)
10215 integer(IK) , intent(out) :: neval
10216 integer(IK) , intent(out) :: nint
10217 integer(IK) :: err
10218 end function
10219#endif
10220
10221 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10222
10223#if RK5_ENABLED
10224 module function QAGS_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10226 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK5
10227#endif
10228 use pm_kind, only: RKC => RK5
10229 procedure(real(RKC)) :: getFunc
10230 type(ninf_type) , intent(in) :: lb
10231 real(RKC) , intent(in) :: ub
10232 real(RKC) , intent(in) :: abstol
10233 real(RKC) , intent(in) :: reltol
10234 type(GK41_type) , intent(in) :: qrule
10235 type(weps_type) , intent(in) :: help
10236 real(RKC) , intent(out) :: integral, abserr
10237 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10238 integer(IK) , intent(out) , contiguous :: sindex(:)
10239 integer(IK) , intent(out) :: neval
10240 integer(IK) , intent(out) :: nint
10241 integer(IK) :: err
10242 end function
10243#endif
10244
10245#if RK4_ENABLED
10246 module function QAGS_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10248 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK4
10249#endif
10250 use pm_kind, only: RKC => RK4
10251 procedure(real(RKC)) :: getFunc
10252 type(ninf_type) , intent(in) :: lb
10253 real(RKC) , intent(in) :: ub
10254 real(RKC) , intent(in) :: abstol
10255 real(RKC) , intent(in) :: reltol
10256 type(GK41_type) , intent(in) :: qrule
10257 type(weps_type) , intent(in) :: help
10258 real(RKC) , intent(out) :: integral, abserr
10259 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10260 integer(IK) , intent(out) , contiguous :: sindex(:)
10261 integer(IK) , intent(out) :: neval
10262 integer(IK) , intent(out) :: nint
10263 integer(IK) :: err
10264 end function
10265#endif
10266
10267#if RK3_ENABLED
10268 module function QAGS_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK3
10271#endif
10272 use pm_kind, only: RKC => RK3
10273 procedure(real(RKC)) :: getFunc
10274 type(ninf_type) , intent(in) :: lb
10275 real(RKC) , intent(in) :: ub
10276 real(RKC) , intent(in) :: abstol
10277 real(RKC) , intent(in) :: reltol
10278 type(GK41_type) , intent(in) :: qrule
10279 type(weps_type) , intent(in) :: help
10280 real(RKC) , intent(out) :: integral, abserr
10281 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10282 integer(IK) , intent(out) , contiguous :: sindex(:)
10283 integer(IK) , intent(out) :: neval
10284 integer(IK) , intent(out) :: nint
10285 integer(IK) :: err
10286 end function
10287#endif
10288
10289#if RK2_ENABLED
10290 module function QAGS_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10292 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK2
10293#endif
10294 use pm_kind, only: RKC => RK2
10295 procedure(real(RKC)) :: getFunc
10296 type(ninf_type) , intent(in) :: lb
10297 real(RKC) , intent(in) :: ub
10298 real(RKC) , intent(in) :: abstol
10299 real(RKC) , intent(in) :: reltol
10300 type(GK41_type) , intent(in) :: qrule
10301 type(weps_type) , intent(in) :: help
10302 real(RKC) , intent(out) :: integral, abserr
10303 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10304 integer(IK) , intent(out) , contiguous :: sindex(:)
10305 integer(IK) , intent(out) :: neval
10306 integer(IK) , intent(out) :: nint
10307 integer(IK) :: err
10308 end function
10309#endif
10310
10311#if RK1_ENABLED
10312 module function QAGS_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK1
10315#endif
10316 use pm_kind, only: RKC => RK1
10317 procedure(real(RKC)) :: getFunc
10318 type(ninf_type) , intent(in) :: lb
10319 real(RKC) , intent(in) :: ub
10320 real(RKC) , intent(in) :: abstol
10321 real(RKC) , intent(in) :: reltol
10322 type(GK41_type) , intent(in) :: qrule
10323 type(weps_type) , intent(in) :: help
10324 real(RKC) , intent(out) :: integral, abserr
10325 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10326 integer(IK) , intent(out) , contiguous :: sindex(:)
10327 integer(IK) , intent(out) :: neval
10328 integer(IK) , intent(out) :: nint
10329 integer(IK) :: err
10330 end function
10331#endif
10332
10333 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10334
10335#if RK5_ENABLED
10336 module function QAGS_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10338 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK5
10339#endif
10340 use pm_kind, only: RKC => RK5
10341 procedure(real(RKC)) :: getFunc
10342 type(ninf_type) , intent(in) :: lb
10343 type(pinf_type) , intent(in) :: ub
10344 real(RKC) , intent(in) :: abstol
10345 real(RKC) , intent(in) :: reltol
10346 type(GK41_type) , intent(in) :: qrule
10347 type(weps_type) , intent(in) :: help
10348 real(RKC) , intent(out) :: integral, abserr
10349 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10350 integer(IK) , intent(out) , contiguous :: sindex(:)
10351 integer(IK) , intent(out) :: neval
10352 integer(IK) , intent(out) :: nint
10353 integer(IK) :: err
10354 end function
10355#endif
10356
10357#if RK4_ENABLED
10358 module function QAGS_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10360 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK4
10361#endif
10362 use pm_kind, only: RKC => RK4
10363 procedure(real(RKC)) :: getFunc
10364 type(ninf_type) , intent(in) :: lb
10365 type(pinf_type) , intent(in) :: ub
10366 real(RKC) , intent(in) :: abstol
10367 real(RKC) , intent(in) :: reltol
10368 type(GK41_type) , intent(in) :: qrule
10369 type(weps_type) , intent(in) :: help
10370 real(RKC) , intent(out) :: integral, abserr
10371 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10372 integer(IK) , intent(out) , contiguous :: sindex(:)
10373 integer(IK) , intent(out) :: neval
10374 integer(IK) , intent(out) :: nint
10375 integer(IK) :: err
10376 end function
10377#endif
10378
10379#if RK3_ENABLED
10380 module function QAGS_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10382 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK3
10383#endif
10384 use pm_kind, only: RKC => RK3
10385 procedure(real(RKC)) :: getFunc
10386 type(ninf_type) , intent(in) :: lb
10387 type(pinf_type) , intent(in) :: ub
10388 real(RKC) , intent(in) :: abstol
10389 real(RKC) , intent(in) :: reltol
10390 type(GK41_type) , intent(in) :: qrule
10391 type(weps_type) , intent(in) :: help
10392 real(RKC) , intent(out) :: integral, abserr
10393 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10394 integer(IK) , intent(out) , contiguous :: sindex(:)
10395 integer(IK) , intent(out) :: neval
10396 integer(IK) , intent(out) :: nint
10397 integer(IK) :: err
10398 end function
10399#endif
10400
10401#if RK2_ENABLED
10402 module function QAGS_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10404 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK2
10405#endif
10406 use pm_kind, only: RKC => RK2
10407 procedure(real(RKC)) :: getFunc
10408 type(ninf_type) , intent(in) :: lb
10409 type(pinf_type) , intent(in) :: ub
10410 real(RKC) , intent(in) :: abstol
10411 real(RKC) , intent(in) :: reltol
10412 type(GK41_type) , intent(in) :: qrule
10413 type(weps_type) , intent(in) :: help
10414 real(RKC) , intent(out) :: integral, abserr
10415 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10416 integer(IK) , intent(out) , contiguous :: sindex(:)
10417 integer(IK) , intent(out) :: neval
10418 integer(IK) , intent(out) :: nint
10419 integer(IK) :: err
10420 end function
10421#endif
10422
10423#if RK1_ENABLED
10424 module function QAGS_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10426 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK1
10427#endif
10428 use pm_kind, only: RKC => RK1
10429 procedure(real(RKC)) :: getFunc
10430 type(ninf_type) , intent(in) :: lb
10431 type(pinf_type) , intent(in) :: ub
10432 real(RKC) , intent(in) :: abstol
10433 real(RKC) , intent(in) :: reltol
10434 type(GK41_type) , intent(in) :: qrule
10435 type(weps_type) , intent(in) :: help
10436 real(RKC) , intent(out) :: integral, abserr
10437 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10438 integer(IK) , intent(out) , contiguous :: sindex(:)
10439 integer(IK) , intent(out) :: neval
10440 integer(IK) , intent(out) :: nint
10441 integer(IK) :: err
10442 end function
10443#endif
10444
10445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10446
10447 end interface
10448
10449 ! QAGS_GK51
10450
10451 interface getQuadErr
10452
10453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10454
10455#if RK5_ENABLED
10456 module function QAGS_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10458 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK5
10459#endif
10460 use pm_kind, only: RKC => RK5
10461 procedure(real(RKC)) :: getFunc
10462 real(RKC) , intent(in) :: lb
10463 real(RKC) , intent(in) :: ub
10464 real(RKC) , intent(in) :: abstol
10465 real(RKC) , intent(in) :: reltol
10466 type(GK51_type) , intent(in) :: qrule
10467 type(weps_type) , intent(in) :: help
10468 real(RKC) , intent(out) :: integral, abserr
10469 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10470 integer(IK) , intent(out) , contiguous :: sindex(:)
10471 integer(IK) , intent(out) :: neval
10472 integer(IK) , intent(out) :: nint
10473 integer(IK) :: err
10474 end function
10475#endif
10476
10477#if RK4_ENABLED
10478 module function QAGS_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10480 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK4
10481#endif
10482 use pm_kind, only: RKC => RK4
10483 procedure(real(RKC)) :: getFunc
10484 real(RKC) , intent(in) :: lb
10485 real(RKC) , intent(in) :: ub
10486 real(RKC) , intent(in) :: abstol
10487 real(RKC) , intent(in) :: reltol
10488 type(GK51_type) , intent(in) :: qrule
10489 type(weps_type) , intent(in) :: help
10490 real(RKC) , intent(out) :: integral, abserr
10491 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10492 integer(IK) , intent(out) , contiguous :: sindex(:)
10493 integer(IK) , intent(out) :: neval
10494 integer(IK) , intent(out) :: nint
10495 integer(IK) :: err
10496 end function
10497#endif
10498
10499#if RK3_ENABLED
10500 module function QAGS_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10502 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK3
10503#endif
10504 use pm_kind, only: RKC => RK3
10505 procedure(real(RKC)) :: getFunc
10506 real(RKC) , intent(in) :: lb
10507 real(RKC) , intent(in) :: ub
10508 real(RKC) , intent(in) :: abstol
10509 real(RKC) , intent(in) :: reltol
10510 type(GK51_type) , intent(in) :: qrule
10511 type(weps_type) , intent(in) :: help
10512 real(RKC) , intent(out) :: integral, abserr
10513 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10514 integer(IK) , intent(out) , contiguous :: sindex(:)
10515 integer(IK) , intent(out) :: neval
10516 integer(IK) , intent(out) :: nint
10517 integer(IK) :: err
10518 end function
10519#endif
10520
10521#if RK2_ENABLED
10522 module function QAGS_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10524 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK2
10525#endif
10526 use pm_kind, only: RKC => RK2
10527 procedure(real(RKC)) :: getFunc
10528 real(RKC) , intent(in) :: lb
10529 real(RKC) , intent(in) :: ub
10530 real(RKC) , intent(in) :: abstol
10531 real(RKC) , intent(in) :: reltol
10532 type(GK51_type) , intent(in) :: qrule
10533 type(weps_type) , intent(in) :: help
10534 real(RKC) , intent(out) :: integral, abserr
10535 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10536 integer(IK) , intent(out) , contiguous :: sindex(:)
10537 integer(IK) , intent(out) :: neval
10538 integer(IK) , intent(out) :: nint
10539 integer(IK) :: err
10540 end function
10541#endif
10542
10543#if RK1_ENABLED
10544 module function QAGS_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10546 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK1
10547#endif
10548 use pm_kind, only: RKC => RK1
10549 procedure(real(RKC)) :: getFunc
10550 real(RKC) , intent(in) :: lb
10551 real(RKC) , intent(in) :: ub
10552 real(RKC) , intent(in) :: abstol
10553 real(RKC) , intent(in) :: reltol
10554 type(GK51_type) , intent(in) :: qrule
10555 type(weps_type) , intent(in) :: help
10556 real(RKC) , intent(out) :: integral, abserr
10557 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10558 integer(IK) , intent(out) , contiguous :: sindex(:)
10559 integer(IK) , intent(out) :: neval
10560 integer(IK) , intent(out) :: nint
10561 integer(IK) :: err
10562 end function
10563#endif
10564
10565 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10566
10567#if RK5_ENABLED
10568 module function QAGS_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10570 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK5
10571#endif
10572 use pm_kind, only: RKC => RK5
10573 procedure(real(RKC)) :: getFunc
10574 real(RKC) , intent(in) :: lb
10575 type(pinf_type) , intent(in) :: ub
10576 real(RKC) , intent(in) :: abstol
10577 real(RKC) , intent(in) :: reltol
10578 type(GK51_type) , intent(in) :: qrule
10579 type(weps_type) , intent(in) :: help
10580 real(RKC) , intent(out) :: integral, abserr
10581 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10582 integer(IK) , intent(out) , contiguous :: sindex(:)
10583 integer(IK) , intent(out) :: neval
10584 integer(IK) , intent(out) :: nint
10585 integer(IK) :: err
10586 end function
10587#endif
10588
10589#if RK4_ENABLED
10590 module function QAGS_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10592 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK4
10593#endif
10594 use pm_kind, only: RKC => RK4
10595 procedure(real(RKC)) :: getFunc
10596 real(RKC) , intent(in) :: lb
10597 type(pinf_type) , intent(in) :: ub
10598 real(RKC) , intent(in) :: abstol
10599 real(RKC) , intent(in) :: reltol
10600 type(GK51_type) , intent(in) :: qrule
10601 type(weps_type) , intent(in) :: help
10602 real(RKC) , intent(out) :: integral, abserr
10603 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10604 integer(IK) , intent(out) , contiguous :: sindex(:)
10605 integer(IK) , intent(out) :: neval
10606 integer(IK) , intent(out) :: nint
10607 integer(IK) :: err
10608 end function
10609#endif
10610
10611#if RK3_ENABLED
10612 module function QAGS_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10614 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK3
10615#endif
10616 use pm_kind, only: RKC => RK3
10617 procedure(real(RKC)) :: getFunc
10618 real(RKC) , intent(in) :: lb
10619 type(pinf_type) , intent(in) :: ub
10620 real(RKC) , intent(in) :: abstol
10621 real(RKC) , intent(in) :: reltol
10622 type(GK51_type) , intent(in) :: qrule
10623 type(weps_type) , intent(in) :: help
10624 real(RKC) , intent(out) :: integral, abserr
10625 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10626 integer(IK) , intent(out) , contiguous :: sindex(:)
10627 integer(IK) , intent(out) :: neval
10628 integer(IK) , intent(out) :: nint
10629 integer(IK) :: err
10630 end function
10631#endif
10632
10633#if RK2_ENABLED
10634 module function QAGS_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10636 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK2
10637#endif
10638 use pm_kind, only: RKC => RK2
10639 procedure(real(RKC)) :: getFunc
10640 real(RKC) , intent(in) :: lb
10641 type(pinf_type) , intent(in) :: ub
10642 real(RKC) , intent(in) :: abstol
10643 real(RKC) , intent(in) :: reltol
10644 type(GK51_type) , intent(in) :: qrule
10645 type(weps_type) , intent(in) :: help
10646 real(RKC) , intent(out) :: integral, abserr
10647 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10648 integer(IK) , intent(out) , contiguous :: sindex(:)
10649 integer(IK) , intent(out) :: neval
10650 integer(IK) , intent(out) :: nint
10651 integer(IK) :: err
10652 end function
10653#endif
10654
10655#if RK1_ENABLED
10656 module function QAGS_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10658 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK1
10659#endif
10660 use pm_kind, only: RKC => RK1
10661 procedure(real(RKC)) :: getFunc
10662 real(RKC) , intent(in) :: lb
10663 type(pinf_type) , intent(in) :: ub
10664 real(RKC) , intent(in) :: abstol
10665 real(RKC) , intent(in) :: reltol
10666 type(GK51_type) , intent(in) :: qrule
10667 type(weps_type) , intent(in) :: help
10668 real(RKC) , intent(out) :: integral, abserr
10669 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10670 integer(IK) , intent(out) , contiguous :: sindex(:)
10671 integer(IK) , intent(out) :: neval
10672 integer(IK) , intent(out) :: nint
10673 integer(IK) :: err
10674 end function
10675#endif
10676
10677 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10678
10679#if RK5_ENABLED
10680 module function QAGS_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10682 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK5
10683#endif
10684 use pm_kind, only: RKC => RK5
10685 procedure(real(RKC)) :: getFunc
10686 type(ninf_type) , intent(in) :: lb
10687 real(RKC) , intent(in) :: ub
10688 real(RKC) , intent(in) :: abstol
10689 real(RKC) , intent(in) :: reltol
10690 type(GK51_type) , intent(in) :: qrule
10691 type(weps_type) , intent(in) :: help
10692 real(RKC) , intent(out) :: integral, abserr
10693 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10694 integer(IK) , intent(out) , contiguous :: sindex(:)
10695 integer(IK) , intent(out) :: neval
10696 integer(IK) , intent(out) :: nint
10697 integer(IK) :: err
10698 end function
10699#endif
10700
10701#if RK4_ENABLED
10702 module function QAGS_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10704 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK4
10705#endif
10706 use pm_kind, only: RKC => RK4
10707 procedure(real(RKC)) :: getFunc
10708 type(ninf_type) , intent(in) :: lb
10709 real(RKC) , intent(in) :: ub
10710 real(RKC) , intent(in) :: abstol
10711 real(RKC) , intent(in) :: reltol
10712 type(GK51_type) , intent(in) :: qrule
10713 type(weps_type) , intent(in) :: help
10714 real(RKC) , intent(out) :: integral, abserr
10715 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10716 integer(IK) , intent(out) , contiguous :: sindex(:)
10717 integer(IK) , intent(out) :: neval
10718 integer(IK) , intent(out) :: nint
10719 integer(IK) :: err
10720 end function
10721#endif
10722
10723#if RK3_ENABLED
10724 module function QAGS_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10726 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK3
10727#endif
10728 use pm_kind, only: RKC => RK3
10729 procedure(real(RKC)) :: getFunc
10730 type(ninf_type) , intent(in) :: lb
10731 real(RKC) , intent(in) :: ub
10732 real(RKC) , intent(in) :: abstol
10733 real(RKC) , intent(in) :: reltol
10734 type(GK51_type) , intent(in) :: qrule
10735 type(weps_type) , intent(in) :: help
10736 real(RKC) , intent(out) :: integral, abserr
10737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10738 integer(IK) , intent(out) , contiguous :: sindex(:)
10739 integer(IK) , intent(out) :: neval
10740 integer(IK) , intent(out) :: nint
10741 integer(IK) :: err
10742 end function
10743#endif
10744
10745#if RK2_ENABLED
10746 module function QAGS_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK2
10749#endif
10750 use pm_kind, only: RKC => RK2
10751 procedure(real(RKC)) :: getFunc
10752 type(ninf_type) , intent(in) :: lb
10753 real(RKC) , intent(in) :: ub
10754 real(RKC) , intent(in) :: abstol
10755 real(RKC) , intent(in) :: reltol
10756 type(GK51_type) , intent(in) :: qrule
10757 type(weps_type) , intent(in) :: help
10758 real(RKC) , intent(out) :: integral, abserr
10759 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10760 integer(IK) , intent(out) , contiguous :: sindex(:)
10761 integer(IK) , intent(out) :: neval
10762 integer(IK) , intent(out) :: nint
10763 integer(IK) :: err
10764 end function
10765#endif
10766
10767#if RK1_ENABLED
10768 module function QAGS_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK1
10771#endif
10772 use pm_kind, only: RKC => RK1
10773 procedure(real(RKC)) :: getFunc
10774 type(ninf_type) , intent(in) :: lb
10775 real(RKC) , intent(in) :: ub
10776 real(RKC) , intent(in) :: abstol
10777 real(RKC) , intent(in) :: reltol
10778 type(GK51_type) , intent(in) :: qrule
10779 type(weps_type) , intent(in) :: help
10780 real(RKC) , intent(out) :: integral, abserr
10781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10782 integer(IK) , intent(out) , contiguous :: sindex(:)
10783 integer(IK) , intent(out) :: neval
10784 integer(IK) , intent(out) :: nint
10785 integer(IK) :: err
10786 end function
10787#endif
10788
10789 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10790
10791#if RK5_ENABLED
10792 module function QAGS_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK5
10795#endif
10796 use pm_kind, only: RKC => RK5
10797 procedure(real(RKC)) :: getFunc
10798 type(ninf_type) , intent(in) :: lb
10799 type(pinf_type) , intent(in) :: ub
10800 real(RKC) , intent(in) :: abstol
10801 real(RKC) , intent(in) :: reltol
10802 type(GK51_type) , intent(in) :: qrule
10803 type(weps_type) , intent(in) :: help
10804 real(RKC) , intent(out) :: integral, abserr
10805 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10806 integer(IK) , intent(out) , contiguous :: sindex(:)
10807 integer(IK) , intent(out) :: neval
10808 integer(IK) , intent(out) :: nint
10809 integer(IK) :: err
10810 end function
10811#endif
10812
10813#if RK4_ENABLED
10814 module function QAGS_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10816 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK4
10817#endif
10818 use pm_kind, only: RKC => RK4
10819 procedure(real(RKC)) :: getFunc
10820 type(ninf_type) , intent(in) :: lb
10821 type(pinf_type) , intent(in) :: ub
10822 real(RKC) , intent(in) :: abstol
10823 real(RKC) , intent(in) :: reltol
10824 type(GK51_type) , intent(in) :: qrule
10825 type(weps_type) , intent(in) :: help
10826 real(RKC) , intent(out) :: integral, abserr
10827 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10828 integer(IK) , intent(out) , contiguous :: sindex(:)
10829 integer(IK) , intent(out) :: neval
10830 integer(IK) , intent(out) :: nint
10831 integer(IK) :: err
10832 end function
10833#endif
10834
10835#if RK3_ENABLED
10836 module function QAGS_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10838 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK3
10839#endif
10840 use pm_kind, only: RKC => RK3
10841 procedure(real(RKC)) :: getFunc
10842 type(ninf_type) , intent(in) :: lb
10843 type(pinf_type) , intent(in) :: ub
10844 real(RKC) , intent(in) :: abstol
10845 real(RKC) , intent(in) :: reltol
10846 type(GK51_type) , intent(in) :: qrule
10847 type(weps_type) , intent(in) :: help
10848 real(RKC) , intent(out) :: integral, abserr
10849 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10850 integer(IK) , intent(out) , contiguous :: sindex(:)
10851 integer(IK) , intent(out) :: neval
10852 integer(IK) , intent(out) :: nint
10853 integer(IK) :: err
10854 end function
10855#endif
10856
10857#if RK2_ENABLED
10858 module function QAGS_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10860 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK2
10861#endif
10862 use pm_kind, only: RKC => RK2
10863 procedure(real(RKC)) :: getFunc
10864 type(ninf_type) , intent(in) :: lb
10865 type(pinf_type) , intent(in) :: ub
10866 real(RKC) , intent(in) :: abstol
10867 real(RKC) , intent(in) :: reltol
10868 type(GK51_type) , intent(in) :: qrule
10869 type(weps_type) , intent(in) :: help
10870 real(RKC) , intent(out) :: integral, abserr
10871 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10872 integer(IK) , intent(out) , contiguous :: sindex(:)
10873 integer(IK) , intent(out) :: neval
10874 integer(IK) , intent(out) :: nint
10875 integer(IK) :: err
10876 end function
10877#endif
10878
10879#if RK1_ENABLED
10880 module function QAGS_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10882 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK1
10883#endif
10884 use pm_kind, only: RKC => RK1
10885 procedure(real(RKC)) :: getFunc
10886 type(ninf_type) , intent(in) :: lb
10887 type(pinf_type) , intent(in) :: ub
10888 real(RKC) , intent(in) :: abstol
10889 real(RKC) , intent(in) :: reltol
10890 type(GK51_type) , intent(in) :: qrule
10891 type(weps_type) , intent(in) :: help
10892 real(RKC) , intent(out) :: integral, abserr
10893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10894 integer(IK) , intent(out) , contiguous :: sindex(:)
10895 integer(IK) , intent(out) :: neval
10896 integer(IK) , intent(out) :: nint
10897 integer(IK) :: err
10898 end function
10899#endif
10900
10901 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10902
10903 end interface
10904
10905 ! QAGS_GK61
10906
10907 interface getQuadErr
10908
10909 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10910
10911#if RK5_ENABLED
10912 module function QAGS_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10914 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK5
10915#endif
10916 use pm_kind, only: RKC => RK5
10917 procedure(real(RKC)) :: getFunc
10918 real(RKC) , intent(in) :: lb
10919 real(RKC) , intent(in) :: ub
10920 real(RKC) , intent(in) :: abstol
10921 real(RKC) , intent(in) :: reltol
10922 type(GK61_type) , intent(in) :: qrule
10923 type(weps_type) , intent(in) :: help
10924 real(RKC) , intent(out) :: integral, abserr
10925 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10926 integer(IK) , intent(out) , contiguous :: sindex(:)
10927 integer(IK) , intent(out) :: neval
10928 integer(IK) , intent(out) :: nint
10929 integer(IK) :: err
10930 end function
10931#endif
10932
10933#if RK4_ENABLED
10934 module function QAGS_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10936 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK4
10937#endif
10938 use pm_kind, only: RKC => RK4
10939 procedure(real(RKC)) :: getFunc
10940 real(RKC) , intent(in) :: lb
10941 real(RKC) , intent(in) :: ub
10942 real(RKC) , intent(in) :: abstol
10943 real(RKC) , intent(in) :: reltol
10944 type(GK61_type) , intent(in) :: qrule
10945 type(weps_type) , intent(in) :: help
10946 real(RKC) , intent(out) :: integral, abserr
10947 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10948 integer(IK) , intent(out) , contiguous :: sindex(:)
10949 integer(IK) , intent(out) :: neval
10950 integer(IK) , intent(out) :: nint
10951 integer(IK) :: err
10952 end function
10953#endif
10954
10955#if RK3_ENABLED
10956 module function QAGS_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10958 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK3
10959#endif
10960 use pm_kind, only: RKC => RK3
10961 procedure(real(RKC)) :: getFunc
10962 real(RKC) , intent(in) :: lb
10963 real(RKC) , intent(in) :: ub
10964 real(RKC) , intent(in) :: abstol
10965 real(RKC) , intent(in) :: reltol
10966 type(GK61_type) , intent(in) :: qrule
10967 type(weps_type) , intent(in) :: help
10968 real(RKC) , intent(out) :: integral, abserr
10969 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10970 integer(IK) , intent(out) , contiguous :: sindex(:)
10971 integer(IK) , intent(out) :: neval
10972 integer(IK) , intent(out) :: nint
10973 integer(IK) :: err
10974 end function
10975#endif
10976
10977#if RK2_ENABLED
10978 module function QAGS_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10980 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK2
10981#endif
10982 use pm_kind, only: RKC => RK2
10983 procedure(real(RKC)) :: getFunc
10984 real(RKC) , intent(in) :: lb
10985 real(RKC) , intent(in) :: ub
10986 real(RKC) , intent(in) :: abstol
10987 real(RKC) , intent(in) :: reltol
10988 type(GK61_type) , intent(in) :: qrule
10989 type(weps_type) , intent(in) :: help
10990 real(RKC) , intent(out) :: integral, abserr
10991 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10992 integer(IK) , intent(out) , contiguous :: sindex(:)
10993 integer(IK) , intent(out) :: neval
10994 integer(IK) , intent(out) :: nint
10995 integer(IK) :: err
10996 end function
10997#endif
10998
10999#if RK1_ENABLED
11000 module function QAGS_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11002 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK1
11003#endif
11004 use pm_kind, only: RKC => RK1
11005 procedure(real(RKC)) :: getFunc
11006 real(RKC) , intent(in) :: lb
11007 real(RKC) , intent(in) :: ub
11008 real(RKC) , intent(in) :: abstol
11009 real(RKC) , intent(in) :: reltol
11010 type(GK61_type) , intent(in) :: qrule
11011 type(weps_type) , intent(in) :: help
11012 real(RKC) , intent(out) :: integral, abserr
11013 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11014 integer(IK) , intent(out) , contiguous :: sindex(:)
11015 integer(IK) , intent(out) :: neval
11016 integer(IK) , intent(out) :: nint
11017 integer(IK) :: err
11018 end function
11019#endif
11020
11021 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11022
11023#if RK5_ENABLED
11024 module function QAGS_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11026 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK5
11027#endif
11028 use pm_kind, only: RKC => RK5
11029 procedure(real(RKC)) :: getFunc
11030 real(RKC) , intent(in) :: lb
11031 type(pinf_type) , intent(in) :: ub
11032 real(RKC) , intent(in) :: abstol
11033 real(RKC) , intent(in) :: reltol
11034 type(GK61_type) , intent(in) :: qrule
11035 type(weps_type) , intent(in) :: help
11036 real(RKC) , intent(out) :: integral, abserr
11037 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11038 integer(IK) , intent(out) , contiguous :: sindex(:)
11039 integer(IK) , intent(out) :: neval
11040 integer(IK) , intent(out) :: nint
11041 integer(IK) :: err
11042 end function
11043#endif
11044
11045#if RK4_ENABLED
11046 module function QAGS_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11048 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK4
11049#endif
11050 use pm_kind, only: RKC => RK4
11051 procedure(real(RKC)) :: getFunc
11052 real(RKC) , intent(in) :: lb
11053 type(pinf_type) , intent(in) :: ub
11054 real(RKC) , intent(in) :: abstol
11055 real(RKC) , intent(in) :: reltol
11056 type(GK61_type) , intent(in) :: qrule
11057 type(weps_type) , intent(in) :: help
11058 real(RKC) , intent(out) :: integral, abserr
11059 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11060 integer(IK) , intent(out) , contiguous :: sindex(:)
11061 integer(IK) , intent(out) :: neval
11062 integer(IK) , intent(out) :: nint
11063 integer(IK) :: err
11064 end function
11065#endif
11066
11067#if RK3_ENABLED
11068 module function QAGS_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11070 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK3
11071#endif
11072 use pm_kind, only: RKC => RK3
11073 procedure(real(RKC)) :: getFunc
11074 real(RKC) , intent(in) :: lb
11075 type(pinf_type) , intent(in) :: ub
11076 real(RKC) , intent(in) :: abstol
11077 real(RKC) , intent(in) :: reltol
11078 type(GK61_type) , intent(in) :: qrule
11079 type(weps_type) , intent(in) :: help
11080 real(RKC) , intent(out) :: integral, abserr
11081 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11082 integer(IK) , intent(out) , contiguous :: sindex(:)
11083 integer(IK) , intent(out) :: neval
11084 integer(IK) , intent(out) :: nint
11085 integer(IK) :: err
11086 end function
11087#endif
11088
11089#if RK2_ENABLED
11090 module function QAGS_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11092 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK2
11093#endif
11094 use pm_kind, only: RKC => RK2
11095 procedure(real(RKC)) :: getFunc
11096 real(RKC) , intent(in) :: lb
11097 type(pinf_type) , intent(in) :: ub
11098 real(RKC) , intent(in) :: abstol
11099 real(RKC) , intent(in) :: reltol
11100 type(GK61_type) , intent(in) :: qrule
11101 type(weps_type) , intent(in) :: help
11102 real(RKC) , intent(out) :: integral, abserr
11103 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11104 integer(IK) , intent(out) , contiguous :: sindex(:)
11105 integer(IK) , intent(out) :: neval
11106 integer(IK) , intent(out) :: nint
11107 integer(IK) :: err
11108 end function
11109#endif
11110
11111#if RK1_ENABLED
11112 module function QAGS_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11114 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK1
11115#endif
11116 use pm_kind, only: RKC => RK1
11117 procedure(real(RKC)) :: getFunc
11118 real(RKC) , intent(in) :: lb
11119 type(pinf_type) , intent(in) :: ub
11120 real(RKC) , intent(in) :: abstol
11121 real(RKC) , intent(in) :: reltol
11122 type(GK61_type) , intent(in) :: qrule
11123 type(weps_type) , intent(in) :: help
11124 real(RKC) , intent(out) :: integral, abserr
11125 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11126 integer(IK) , intent(out) , contiguous :: sindex(:)
11127 integer(IK) , intent(out) :: neval
11128 integer(IK) , intent(out) :: nint
11129 integer(IK) :: err
11130 end function
11131#endif
11132
11133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11134
11135#if RK5_ENABLED
11136 module function QAGS_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11138 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK5
11139#endif
11140 use pm_kind, only: RKC => RK5
11141 procedure(real(RKC)) :: getFunc
11142 type(ninf_type) , intent(in) :: lb
11143 real(RKC) , intent(in) :: ub
11144 real(RKC) , intent(in) :: abstol
11145 real(RKC) , intent(in) :: reltol
11146 type(GK61_type) , intent(in) :: qrule
11147 type(weps_type) , intent(in) :: help
11148 real(RKC) , intent(out) :: integral, abserr
11149 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11150 integer(IK) , intent(out) , contiguous :: sindex(:)
11151 integer(IK) , intent(out) :: neval
11152 integer(IK) , intent(out) :: nint
11153 integer(IK) :: err
11154 end function
11155#endif
11156
11157#if RK4_ENABLED
11158 module function QAGS_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11160 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK4
11161#endif
11162 use pm_kind, only: RKC => RK4
11163 procedure(real(RKC)) :: getFunc
11164 type(ninf_type) , intent(in) :: lb
11165 real(RKC) , intent(in) :: ub
11166 real(RKC) , intent(in) :: abstol
11167 real(RKC) , intent(in) :: reltol
11168 type(GK61_type) , intent(in) :: qrule
11169 type(weps_type) , intent(in) :: help
11170 real(RKC) , intent(out) :: integral, abserr
11171 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11172 integer(IK) , intent(out) , contiguous :: sindex(:)
11173 integer(IK) , intent(out) :: neval
11174 integer(IK) , intent(out) :: nint
11175 integer(IK) :: err
11176 end function
11177#endif
11178
11179#if RK3_ENABLED
11180 module function QAGS_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11182 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK3
11183#endif
11184 use pm_kind, only: RKC => RK3
11185 procedure(real(RKC)) :: getFunc
11186 type(ninf_type) , intent(in) :: lb
11187 real(RKC) , intent(in) :: ub
11188 real(RKC) , intent(in) :: abstol
11189 real(RKC) , intent(in) :: reltol
11190 type(GK61_type) , intent(in) :: qrule
11191 type(weps_type) , intent(in) :: help
11192 real(RKC) , intent(out) :: integral, abserr
11193 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11194 integer(IK) , intent(out) , contiguous :: sindex(:)
11195 integer(IK) , intent(out) :: neval
11196 integer(IK) , intent(out) :: nint
11197 integer(IK) :: err
11198 end function
11199#endif
11200
11201#if RK2_ENABLED
11202 module function QAGS_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11204 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK2
11205#endif
11206 use pm_kind, only: RKC => RK2
11207 procedure(real(RKC)) :: getFunc
11208 type(ninf_type) , intent(in) :: lb
11209 real(RKC) , intent(in) :: ub
11210 real(RKC) , intent(in) :: abstol
11211 real(RKC) , intent(in) :: reltol
11212 type(GK61_type) , intent(in) :: qrule
11213 type(weps_type) , intent(in) :: help
11214 real(RKC) , intent(out) :: integral, abserr
11215 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11216 integer(IK) , intent(out) , contiguous :: sindex(:)
11217 integer(IK) , intent(out) :: neval
11218 integer(IK) , intent(out) :: nint
11219 integer(IK) :: err
11220 end function
11221#endif
11222
11223#if RK1_ENABLED
11224 module function QAGS_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11226 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK1
11227#endif
11228 use pm_kind, only: RKC => RK1
11229 procedure(real(RKC)) :: getFunc
11230 type(ninf_type) , intent(in) :: lb
11231 real(RKC) , intent(in) :: ub
11232 real(RKC) , intent(in) :: abstol
11233 real(RKC) , intent(in) :: reltol
11234 type(GK61_type) , intent(in) :: qrule
11235 type(weps_type) , intent(in) :: help
11236 real(RKC) , intent(out) :: integral, abserr
11237 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11238 integer(IK) , intent(out) , contiguous :: sindex(:)
11239 integer(IK) , intent(out) :: neval
11240 integer(IK) , intent(out) :: nint
11241 integer(IK) :: err
11242 end function
11243#endif
11244
11245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11246
11247#if RK5_ENABLED
11248 module function QAGS_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11250 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK5
11251#endif
11252 use pm_kind, only: RKC => RK5
11253 procedure(real(RKC)) :: getFunc
11254 type(ninf_type) , intent(in) :: lb
11255 type(pinf_type) , intent(in) :: ub
11256 real(RKC) , intent(in) :: abstol
11257 real(RKC) , intent(in) :: reltol
11258 type(GK61_type) , intent(in) :: qrule
11259 type(weps_type) , intent(in) :: help
11260 real(RKC) , intent(out) :: integral, abserr
11261 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11262 integer(IK) , intent(out) , contiguous :: sindex(:)
11263 integer(IK) , intent(out) :: neval
11264 integer(IK) , intent(out) :: nint
11265 integer(IK) :: err
11266 end function
11267#endif
11268
11269#if RK4_ENABLED
11270 module function QAGS_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK4
11273#endif
11274 use pm_kind, only: RKC => RK4
11275 procedure(real(RKC)) :: getFunc
11276 type(ninf_type) , intent(in) :: lb
11277 type(pinf_type) , intent(in) :: ub
11278 real(RKC) , intent(in) :: abstol
11279 real(RKC) , intent(in) :: reltol
11280 type(GK61_type) , intent(in) :: qrule
11281 type(weps_type) , intent(in) :: help
11282 real(RKC) , intent(out) :: integral, abserr
11283 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11284 integer(IK) , intent(out) , contiguous :: sindex(:)
11285 integer(IK) , intent(out) :: neval
11286 integer(IK) , intent(out) :: nint
11287 integer(IK) :: err
11288 end function
11289#endif
11290
11291#if RK3_ENABLED
11292 module function QAGS_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11294 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK3
11295#endif
11296 use pm_kind, only: RKC => RK3
11297 procedure(real(RKC)) :: getFunc
11298 type(ninf_type) , intent(in) :: lb
11299 type(pinf_type) , intent(in) :: ub
11300 real(RKC) , intent(in) :: abstol
11301 real(RKC) , intent(in) :: reltol
11302 type(GK61_type) , intent(in) :: qrule
11303 type(weps_type) , intent(in) :: help
11304 real(RKC) , intent(out) :: integral, abserr
11305 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11306 integer(IK) , intent(out) , contiguous :: sindex(:)
11307 integer(IK) , intent(out) :: neval
11308 integer(IK) , intent(out) :: nint
11309 integer(IK) :: err
11310 end function
11311#endif
11312
11313#if RK2_ENABLED
11314 module function QAGS_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11316 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK2
11317#endif
11318 use pm_kind, only: RKC => RK2
11319 procedure(real(RKC)) :: getFunc
11320 type(ninf_type) , intent(in) :: lb
11321 type(pinf_type) , intent(in) :: ub
11322 real(RKC) , intent(in) :: abstol
11323 real(RKC) , intent(in) :: reltol
11324 type(GK61_type) , intent(in) :: qrule
11325 type(weps_type) , intent(in) :: help
11326 real(RKC) , intent(out) :: integral, abserr
11327 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11328 integer(IK) , intent(out) , contiguous :: sindex(:)
11329 integer(IK) , intent(out) :: neval
11330 integer(IK) , intent(out) :: nint
11331 integer(IK) :: err
11332 end function
11333#endif
11334
11335#if RK1_ENABLED
11336 module function QAGS_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11338 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK1
11339#endif
11340 use pm_kind, only: RKC => RK1
11341 procedure(real(RKC)) :: getFunc
11342 type(ninf_type) , intent(in) :: lb
11343 type(pinf_type) , intent(in) :: ub
11344 real(RKC) , intent(in) :: abstol
11345 real(RKC) , intent(in) :: reltol
11346 type(GK61_type) , intent(in) :: qrule
11347 type(weps_type) , intent(in) :: help
11348 real(RKC) , intent(out) :: integral, abserr
11349 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11350 integer(IK) , intent(out) , contiguous :: sindex(:)
11351 integer(IK) , intent(out) :: neval
11352 integer(IK) , intent(out) :: nint
11353 integer(IK) :: err
11354 end function
11355#endif
11356
11357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11358
11359 end interface
11360
11361 ! QAGS_GKXX
11362
11363 interface getQuadErr
11364
11365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11366
11367#if RK5_ENABLED
11368 module function QAGS_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11370 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK5
11371#endif
11372 use pm_kind, only: RKC => RK5
11373 procedure(real(RKC)) :: getFunc
11374 real(RKC) , intent(in) :: lb
11375 real(RKC) , intent(in) :: ub
11376 real(RKC) , intent(in) :: abstol
11377 real(RKC) , intent(in) :: reltol
11378 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11379 type(weps_type) , intent(in) :: help
11380 real(RKC) , intent(out) :: integral, abserr
11381 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11382 integer(IK) , intent(out) , contiguous :: sindex(:)
11383 integer(IK) , intent(out) :: neval
11384 integer(IK) , intent(out) :: nint
11385 integer(IK) :: err
11386 end function
11387#endif
11388
11389#if RK4_ENABLED
11390 module function QAGS_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11392 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK4
11393#endif
11394 use pm_kind, only: RKC => RK4
11395 procedure(real(RKC)) :: getFunc
11396 real(RKC) , intent(in) :: lb
11397 real(RKC) , intent(in) :: ub
11398 real(RKC) , intent(in) :: abstol
11399 real(RKC) , intent(in) :: reltol
11400 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11401 type(weps_type) , intent(in) :: help
11402 real(RKC) , intent(out) :: integral, abserr
11403 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11404 integer(IK) , intent(out) , contiguous :: sindex(:)
11405 integer(IK) , intent(out) :: neval
11406 integer(IK) , intent(out) :: nint
11407 integer(IK) :: err
11408 end function
11409#endif
11410
11411#if RK3_ENABLED
11412 module function QAGS_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11414 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK3
11415#endif
11416 use pm_kind, only: RKC => RK3
11417 procedure(real(RKC)) :: getFunc
11418 real(RKC) , intent(in) :: lb
11419 real(RKC) , intent(in) :: ub
11420 real(RKC) , intent(in) :: abstol
11421 real(RKC) , intent(in) :: reltol
11422 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11423 type(weps_type) , intent(in) :: help
11424 real(RKC) , intent(out) :: integral, abserr
11425 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11426 integer(IK) , intent(out) , contiguous :: sindex(:)
11427 integer(IK) , intent(out) :: neval
11428 integer(IK) , intent(out) :: nint
11429 integer(IK) :: err
11430 end function
11431#endif
11432
11433#if RK2_ENABLED
11434 module function QAGS_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11436 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK2
11437#endif
11438 use pm_kind, only: RKC => RK2
11439 procedure(real(RKC)) :: getFunc
11440 real(RKC) , intent(in) :: lb
11441 real(RKC) , intent(in) :: ub
11442 real(RKC) , intent(in) :: abstol
11443 real(RKC) , intent(in) :: reltol
11444 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11445 type(weps_type) , intent(in) :: help
11446 real(RKC) , intent(out) :: integral, abserr
11447 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11448 integer(IK) , intent(out) , contiguous :: sindex(:)
11449 integer(IK) , intent(out) :: neval
11450 integer(IK) , intent(out) :: nint
11451 integer(IK) :: err
11452 end function
11453#endif
11454
11455#if RK1_ENABLED
11456 module function QAGS_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11458 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK1
11459#endif
11460 use pm_kind, only: RKC => RK1
11461 procedure(real(RKC)) :: getFunc
11462 real(RKC) , intent(in) :: lb
11463 real(RKC) , intent(in) :: ub
11464 real(RKC) , intent(in) :: abstol
11465 real(RKC) , intent(in) :: reltol
11466 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11467 type(weps_type) , intent(in) :: help
11468 real(RKC) , intent(out) :: integral, abserr
11469 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11470 integer(IK) , intent(out) , contiguous :: sindex(:)
11471 integer(IK) , intent(out) :: neval
11472 integer(IK) , intent(out) :: nint
11473 integer(IK) :: err
11474 end function
11475#endif
11476
11477 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11478
11479#if RK5_ENABLED
11480 module function QAGS_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11482 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK5
11483#endif
11484 use pm_kind, only: RKC => RK5
11485 procedure(real(RKC)) :: getFunc
11486 real(RKC) , intent(in) :: lb
11487 type(pinf_type) , intent(in) :: ub
11488 real(RKC) , intent(in) :: abstol
11489 real(RKC) , intent(in) :: reltol
11490 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11491 type(weps_type) , intent(in) :: help
11492 real(RKC) , intent(out) :: integral, abserr
11493 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11494 integer(IK) , intent(out) , contiguous :: sindex(:)
11495 integer(IK) , intent(out) :: neval
11496 integer(IK) , intent(out) :: nint
11497 integer(IK) :: err
11498 end function
11499#endif
11500
11501#if RK4_ENABLED
11502 module function QAGS_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11504 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK4
11505#endif
11506 use pm_kind, only: RKC => RK4
11507 procedure(real(RKC)) :: getFunc
11508 real(RKC) , intent(in) :: lb
11509 type(pinf_type) , intent(in) :: ub
11510 real(RKC) , intent(in) :: abstol
11511 real(RKC) , intent(in) :: reltol
11512 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11513 type(weps_type) , intent(in) :: help
11514 real(RKC) , intent(out) :: integral, abserr
11515 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11516 integer(IK) , intent(out) , contiguous :: sindex(:)
11517 integer(IK) , intent(out) :: neval
11518 integer(IK) , intent(out) :: nint
11519 integer(IK) :: err
11520 end function
11521#endif
11522
11523#if RK3_ENABLED
11524 module function QAGS_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11526 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK3
11527#endif
11528 use pm_kind, only: RKC => RK3
11529 procedure(real(RKC)) :: getFunc
11530 real(RKC) , intent(in) :: lb
11531 type(pinf_type) , intent(in) :: ub
11532 real(RKC) , intent(in) :: abstol
11533 real(RKC) , intent(in) :: reltol
11534 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11535 type(weps_type) , intent(in) :: help
11536 real(RKC) , intent(out) :: integral, abserr
11537 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11538 integer(IK) , intent(out) , contiguous :: sindex(:)
11539 integer(IK) , intent(out) :: neval
11540 integer(IK) , intent(out) :: nint
11541 integer(IK) :: err
11542 end function
11543#endif
11544
11545#if RK2_ENABLED
11546 module function QAGS_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11548 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK2
11549#endif
11550 use pm_kind, only: RKC => RK2
11551 procedure(real(RKC)) :: getFunc
11552 real(RKC) , intent(in) :: lb
11553 type(pinf_type) , intent(in) :: ub
11554 real(RKC) , intent(in) :: abstol
11555 real(RKC) , intent(in) :: reltol
11556 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11557 type(weps_type) , intent(in) :: help
11558 real(RKC) , intent(out) :: integral, abserr
11559 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11560 integer(IK) , intent(out) , contiguous :: sindex(:)
11561 integer(IK) , intent(out) :: neval
11562 integer(IK) , intent(out) :: nint
11563 integer(IK) :: err
11564 end function
11565#endif
11566
11567#if RK1_ENABLED
11568 module function QAGS_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11570 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK1
11571#endif
11572 use pm_kind, only: RKC => RK1
11573 procedure(real(RKC)) :: getFunc
11574 real(RKC) , intent(in) :: lb
11575 type(pinf_type) , intent(in) :: ub
11576 real(RKC) , intent(in) :: abstol
11577 real(RKC) , intent(in) :: reltol
11578 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11579 type(weps_type) , intent(in) :: help
11580 real(RKC) , intent(out) :: integral, abserr
11581 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11582 integer(IK) , intent(out) , contiguous :: sindex(:)
11583 integer(IK) , intent(out) :: neval
11584 integer(IK) , intent(out) :: nint
11585 integer(IK) :: err
11586 end function
11587#endif
11588
11589 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11590
11591#if RK5_ENABLED
11592 module function QAGS_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11594 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK5
11595#endif
11596 use pm_kind, only: RKC => RK5
11597 procedure(real(RKC)) :: getFunc
11598 type(ninf_type) , intent(in) :: lb
11599 real(RKC) , intent(in) :: ub
11600 real(RKC) , intent(in) :: abstol
11601 real(RKC) , intent(in) :: reltol
11602 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11603 type(weps_type) , intent(in) :: help
11604 real(RKC) , intent(out) :: integral, abserr
11605 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11606 integer(IK) , intent(out) , contiguous :: sindex(:)
11607 integer(IK) , intent(out) :: neval
11608 integer(IK) , intent(out) :: nint
11609 integer(IK) :: err
11610 end function
11611#endif
11612
11613#if RK4_ENABLED
11614 module function QAGS_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11616 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK4
11617#endif
11618 use pm_kind, only: RKC => RK4
11619 procedure(real(RKC)) :: getFunc
11620 type(ninf_type) , intent(in) :: lb
11621 real(RKC) , intent(in) :: ub
11622 real(RKC) , intent(in) :: abstol
11623 real(RKC) , intent(in) :: reltol
11624 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11625 type(weps_type) , intent(in) :: help
11626 real(RKC) , intent(out) :: integral, abserr
11627 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11628 integer(IK) , intent(out) , contiguous :: sindex(:)
11629 integer(IK) , intent(out) :: neval
11630 integer(IK) , intent(out) :: nint
11631 integer(IK) :: err
11632 end function
11633#endif
11634
11635#if RK3_ENABLED
11636 module function QAGS_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11638 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK3
11639#endif
11640 use pm_kind, only: RKC => RK3
11641 procedure(real(RKC)) :: getFunc
11642 type(ninf_type) , intent(in) :: lb
11643 real(RKC) , intent(in) :: ub
11644 real(RKC) , intent(in) :: abstol
11645 real(RKC) , intent(in) :: reltol
11646 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11647 type(weps_type) , intent(in) :: help
11648 real(RKC) , intent(out) :: integral, abserr
11649 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11650 integer(IK) , intent(out) , contiguous :: sindex(:)
11651 integer(IK) , intent(out) :: neval
11652 integer(IK) , intent(out) :: nint
11653 integer(IK) :: err
11654 end function
11655#endif
11656
11657#if RK2_ENABLED
11658 module function QAGS_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11660 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK2
11661#endif
11662 use pm_kind, only: RKC => RK2
11663 procedure(real(RKC)) :: getFunc
11664 type(ninf_type) , intent(in) :: lb
11665 real(RKC) , intent(in) :: ub
11666 real(RKC) , intent(in) :: abstol
11667 real(RKC) , intent(in) :: reltol
11668 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11669 type(weps_type) , intent(in) :: help
11670 real(RKC) , intent(out) :: integral, abserr
11671 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11672 integer(IK) , intent(out) , contiguous :: sindex(:)
11673 integer(IK) , intent(out) :: neval
11674 integer(IK) , intent(out) :: nint
11675 integer(IK) :: err
11676 end function
11677#endif
11678
11679#if RK1_ENABLED
11680 module function QAGS_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11682 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK1
11683#endif
11684 use pm_kind, only: RKC => RK1
11685 procedure(real(RKC)) :: getFunc
11686 type(ninf_type) , intent(in) :: lb
11687 real(RKC) , intent(in) :: ub
11688 real(RKC) , intent(in) :: abstol
11689 real(RKC) , intent(in) :: reltol
11690 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11691 type(weps_type) , intent(in) :: help
11692 real(RKC) , intent(out) :: integral, abserr
11693 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11694 integer(IK) , intent(out) , contiguous :: sindex(:)
11695 integer(IK) , intent(out) :: neval
11696 integer(IK) , intent(out) :: nint
11697 integer(IK) :: err
11698 end function
11699#endif
11700
11701 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11702
11703#if RK5_ENABLED
11704 module function QAGS_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK5
11707#endif
11708 use pm_kind, only: RKC => RK5
11709 procedure(real(RKC)) :: getFunc
11710 type(ninf_type) , intent(in) :: lb
11711 type(pinf_type) , intent(in) :: ub
11712 real(RKC) , intent(in) :: abstol
11713 real(RKC) , intent(in) :: reltol
11714 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11715 type(weps_type) , intent(in) :: help
11716 real(RKC) , intent(out) :: integral, abserr
11717 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11718 integer(IK) , intent(out) , contiguous :: sindex(:)
11719 integer(IK) , intent(out) :: neval
11720 integer(IK) , intent(out) :: nint
11721 integer(IK) :: err
11722 end function
11723#endif
11724
11725#if RK4_ENABLED
11726 module function QAGS_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11728 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK4
11729#endif
11730 use pm_kind, only: RKC => RK4
11731 procedure(real(RKC)) :: getFunc
11732 type(ninf_type) , intent(in) :: lb
11733 type(pinf_type) , intent(in) :: ub
11734 real(RKC) , intent(in) :: abstol
11735 real(RKC) , intent(in) :: reltol
11736 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11737 type(weps_type) , intent(in) :: help
11738 real(RKC) , intent(out) :: integral, abserr
11739 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11740 integer(IK) , intent(out) , contiguous :: sindex(:)
11741 integer(IK) , intent(out) :: neval
11742 integer(IK) , intent(out) :: nint
11743 integer(IK) :: err
11744 end function
11745#endif
11746
11747#if RK3_ENABLED
11748 module function QAGS_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK3
11751#endif
11752 use pm_kind, only: RKC => RK3
11753 procedure(real(RKC)) :: getFunc
11754 type(ninf_type) , intent(in) :: lb
11755 type(pinf_type) , intent(in) :: ub
11756 real(RKC) , intent(in) :: abstol
11757 real(RKC) , intent(in) :: reltol
11758 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11759 type(weps_type) , intent(in) :: help
11760 real(RKC) , intent(out) :: integral, abserr
11761 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11762 integer(IK) , intent(out) , contiguous :: sindex(:)
11763 integer(IK) , intent(out) :: neval
11764 integer(IK) , intent(out) :: nint
11765 integer(IK) :: err
11766 end function
11767#endif
11768
11769#if RK2_ENABLED
11770 module function QAGS_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11772 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK2
11773#endif
11774 use pm_kind, only: RKC => RK2
11775 procedure(real(RKC)) :: getFunc
11776 type(ninf_type) , intent(in) :: lb
11777 type(pinf_type) , intent(in) :: ub
11778 real(RKC) , intent(in) :: abstol
11779 real(RKC) , intent(in) :: reltol
11780 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11781 type(weps_type) , intent(in) :: help
11782 real(RKC) , intent(out) :: integral, abserr
11783 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11784 integer(IK) , intent(out) , contiguous :: sindex(:)
11785 integer(IK) , intent(out) :: neval
11786 integer(IK) , intent(out) :: nint
11787 integer(IK) :: err
11788 end function
11789#endif
11790
11791#if RK1_ENABLED
11792 module function QAGS_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK1
11795#endif
11796 use pm_kind, only: RKC => RK1
11797 procedure(real(RKC)) :: getFunc
11798 type(ninf_type) , intent(in) :: lb
11799 type(pinf_type) , intent(in) :: ub
11800 real(RKC) , intent(in) :: abstol
11801 real(RKC) , intent(in) :: reltol
11802 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11803 type(weps_type) , intent(in) :: help
11804 real(RKC) , intent(out) :: integral, abserr
11805 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11806 integer(IK) , intent(out) , contiguous :: sindex(:)
11807 integer(IK) , intent(out) :: neval
11808 integer(IK) , intent(out) :: nint
11809 integer(IK) :: err
11810 end function
11811#endif
11812
11813 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11814
11815 end interface
11816
11817!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11818
11819 ! QAGP_GK15
11820
11821 interface getQuadErr
11822
11823 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11824
11825#if RK5_ENABLED
11826 module function QAGP_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11828 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK5
11829#endif
11830 use pm_kind, only: RKC => RK5
11831 procedure(real(RKC)) :: getFunc
11832 real(RKC) , intent(in) :: lb
11833 real(RKC) , intent(in) :: ub
11834 real(RKC) , intent(in) :: abstol
11835 real(RKC) , intent(in) :: reltol
11836 type(GK15_type) , intent(in) :: qrule
11837 real(RKC) , intent(in) , contiguous :: help(:)
11838 real(RKC) , intent(out) :: integral, abserr
11839 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11840 integer(IK) , intent(out) , contiguous :: sindex(:)
11841 integer(IK) , intent(out) :: neval
11842 integer(IK) , intent(out) :: nint
11843 integer(IK) :: err
11844 end function
11845#endif
11846
11847#if RK4_ENABLED
11848 module function QAGP_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11850 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK4
11851#endif
11852 use pm_kind, only: RKC => RK4
11853 procedure(real(RKC)) :: getFunc
11854 real(RKC) , intent(in) :: lb
11855 real(RKC) , intent(in) :: ub
11856 real(RKC) , intent(in) :: abstol
11857 real(RKC) , intent(in) :: reltol
11858 type(GK15_type) , intent(in) :: qrule
11859 real(RKC) , intent(in) , contiguous :: help(:)
11860 real(RKC) , intent(out) :: integral, abserr
11861 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11862 integer(IK) , intent(out) , contiguous :: sindex(:)
11863 integer(IK) , intent(out) :: neval
11864 integer(IK) , intent(out) :: nint
11865 integer(IK) :: err
11866 end function
11867#endif
11868
11869#if RK3_ENABLED
11870 module function QAGP_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11872 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK3
11873#endif
11874 use pm_kind, only: RKC => RK3
11875 procedure(real(RKC)) :: getFunc
11876 real(RKC) , intent(in) :: lb
11877 real(RKC) , intent(in) :: ub
11878 real(RKC) , intent(in) :: abstol
11879 real(RKC) , intent(in) :: reltol
11880 type(GK15_type) , intent(in) :: qrule
11881 real(RKC) , intent(in) , contiguous :: help(:)
11882 real(RKC) , intent(out) :: integral, abserr
11883 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11884 integer(IK) , intent(out) , contiguous :: sindex(:)
11885 integer(IK) , intent(out) :: neval
11886 integer(IK) , intent(out) :: nint
11887 integer(IK) :: err
11888 end function
11889#endif
11890
11891#if RK2_ENABLED
11892 module function QAGP_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11894 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK2
11895#endif
11896 use pm_kind, only: RKC => RK2
11897 procedure(real(RKC)) :: getFunc
11898 real(RKC) , intent(in) :: lb
11899 real(RKC) , intent(in) :: ub
11900 real(RKC) , intent(in) :: abstol
11901 real(RKC) , intent(in) :: reltol
11902 type(GK15_type) , intent(in) :: qrule
11903 real(RKC) , intent(in) , contiguous :: help(:)
11904 real(RKC) , intent(out) :: integral, abserr
11905 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11906 integer(IK) , intent(out) , contiguous :: sindex(:)
11907 integer(IK) , intent(out) :: neval
11908 integer(IK) , intent(out) :: nint
11909 integer(IK) :: err
11910 end function
11911#endif
11912
11913#if RK1_ENABLED
11914 module function QAGP_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11916 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK1
11917#endif
11918 use pm_kind, only: RKC => RK1
11919 procedure(real(RKC)) :: getFunc
11920 real(RKC) , intent(in) :: lb
11921 real(RKC) , intent(in) :: ub
11922 real(RKC) , intent(in) :: abstol
11923 real(RKC) , intent(in) :: reltol
11924 type(GK15_type) , intent(in) :: qrule
11925 real(RKC) , intent(in) , contiguous :: help(:)
11926 real(RKC) , intent(out) :: integral, abserr
11927 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11928 integer(IK) , intent(out) , contiguous :: sindex(:)
11929 integer(IK) , intent(out) :: neval
11930 integer(IK) , intent(out) :: nint
11931 integer(IK) :: err
11932 end function
11933#endif
11934
11935 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11936
11937#if RK5_ENABLED
11938 module function QAGP_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11940 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK5
11941#endif
11942 use pm_kind, only: RKC => RK5
11943 procedure(real(RKC)) :: getFunc
11944 real(RKC) , intent(in) :: lb
11945 type(pinf_type) , intent(in) :: ub
11946 real(RKC) , intent(in) :: abstol
11947 real(RKC) , intent(in) :: reltol
11948 type(GK15_type) , intent(in) :: qrule
11949 real(RKC) , intent(in) , contiguous :: help(:)
11950 real(RKC) , intent(out) :: integral, abserr
11951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11952 integer(IK) , intent(out) , contiguous :: sindex(:)
11953 integer(IK) , intent(out) :: neval
11954 integer(IK) , intent(out) :: nint
11955 integer(IK) :: err
11956 end function
11957#endif
11958
11959#if RK4_ENABLED
11960 module function QAGP_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK4
11963#endif
11964 use pm_kind, only: RKC => RK4
11965 procedure(real(RKC)) :: getFunc
11966 real(RKC) , intent(in) :: lb
11967 type(pinf_type) , intent(in) :: ub
11968 real(RKC) , intent(in) :: abstol
11969 real(RKC) , intent(in) :: reltol
11970 type(GK15_type) , intent(in) :: qrule
11971 real(RKC) , intent(in) , contiguous :: help(:)
11972 real(RKC) , intent(out) :: integral, abserr
11973 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11974 integer(IK) , intent(out) , contiguous :: sindex(:)
11975 integer(IK) , intent(out) :: neval
11976 integer(IK) , intent(out) :: nint
11977 integer(IK) :: err
11978 end function
11979#endif
11980
11981#if RK3_ENABLED
11982 module function QAGP_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11984 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK3
11985#endif
11986 use pm_kind, only: RKC => RK3
11987 procedure(real(RKC)) :: getFunc
11988 real(RKC) , intent(in) :: lb
11989 type(pinf_type) , intent(in) :: ub
11990 real(RKC) , intent(in) :: abstol
11991 real(RKC) , intent(in) :: reltol
11992 type(GK15_type) , intent(in) :: qrule
11993 real(RKC) , intent(in) , contiguous :: help(:)
11994 real(RKC) , intent(out) :: integral, abserr
11995 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11996 integer(IK) , intent(out) , contiguous :: sindex(:)
11997 integer(IK) , intent(out) :: neval
11998 integer(IK) , intent(out) :: nint
11999 integer(IK) :: err
12000 end function
12001#endif
12002
12003#if RK2_ENABLED
12004 module function QAGP_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12006 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK2
12007#endif
12008 use pm_kind, only: RKC => RK2
12009 procedure(real(RKC)) :: getFunc
12010 real(RKC) , intent(in) :: lb
12011 type(pinf_type) , intent(in) :: ub
12012 real(RKC) , intent(in) :: abstol
12013 real(RKC) , intent(in) :: reltol
12014 type(GK15_type) , intent(in) :: qrule
12015 real(RKC) , intent(in) , contiguous :: help(:)
12016 real(RKC) , intent(out) :: integral, abserr
12017 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12018 integer(IK) , intent(out) , contiguous :: sindex(:)
12019 integer(IK) , intent(out) :: neval
12020 integer(IK) , intent(out) :: nint
12021 integer(IK) :: err
12022 end function
12023#endif
12024
12025#if RK1_ENABLED
12026 module function QAGP_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12028 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK1
12029#endif
12030 use pm_kind, only: RKC => RK1
12031 procedure(real(RKC)) :: getFunc
12032 real(RKC) , intent(in) :: lb
12033 type(pinf_type) , intent(in) :: ub
12034 real(RKC) , intent(in) :: abstol
12035 real(RKC) , intent(in) :: reltol
12036 type(GK15_type) , intent(in) :: qrule
12037 real(RKC) , intent(in) , contiguous :: help(:)
12038 real(RKC) , intent(out) :: integral, abserr
12039 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12040 integer(IK) , intent(out) , contiguous :: sindex(:)
12041 integer(IK) , intent(out) :: neval
12042 integer(IK) , intent(out) :: nint
12043 integer(IK) :: err
12044 end function
12045#endif
12046
12047 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12048
12049#if RK5_ENABLED
12050 module function QAGP_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12052 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK5
12053#endif
12054 use pm_kind, only: RKC => RK5
12055 procedure(real(RKC)) :: getFunc
12056 type(ninf_type) , intent(in) :: lb
12057 real(RKC) , intent(in) :: ub
12058 real(RKC) , intent(in) :: abstol
12059 real(RKC) , intent(in) :: reltol
12060 type(GK15_type) , intent(in) :: qrule
12061 real(RKC) , intent(in) , contiguous :: help(:)
12062 real(RKC) , intent(out) :: integral, abserr
12063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12064 integer(IK) , intent(out) , contiguous :: sindex(:)
12065 integer(IK) , intent(out) :: neval
12066 integer(IK) , intent(out) :: nint
12067 integer(IK) :: err
12068 end function
12069#endif
12070
12071#if RK4_ENABLED
12072 module function QAGP_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12074 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK4
12075#endif
12076 use pm_kind, only: RKC => RK4
12077 procedure(real(RKC)) :: getFunc
12078 type(ninf_type) , intent(in) :: lb
12079 real(RKC) , intent(in) :: ub
12080 real(RKC) , intent(in) :: abstol
12081 real(RKC) , intent(in) :: reltol
12082 type(GK15_type) , intent(in) :: qrule
12083 real(RKC) , intent(in) , contiguous :: help(:)
12084 real(RKC) , intent(out) :: integral, abserr
12085 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12086 integer(IK) , intent(out) , contiguous :: sindex(:)
12087 integer(IK) , intent(out) :: neval
12088 integer(IK) , intent(out) :: nint
12089 integer(IK) :: err
12090 end function
12091#endif
12092
12093#if RK3_ENABLED
12094 module function QAGP_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12096 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK3
12097#endif
12098 use pm_kind, only: RKC => RK3
12099 procedure(real(RKC)) :: getFunc
12100 type(ninf_type) , intent(in) :: lb
12101 real(RKC) , intent(in) :: ub
12102 real(RKC) , intent(in) :: abstol
12103 real(RKC) , intent(in) :: reltol
12104 type(GK15_type) , intent(in) :: qrule
12105 real(RKC) , intent(in) , contiguous :: help(:)
12106 real(RKC) , intent(out) :: integral, abserr
12107 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12108 integer(IK) , intent(out) , contiguous :: sindex(:)
12109 integer(IK) , intent(out) :: neval
12110 integer(IK) , intent(out) :: nint
12111 integer(IK) :: err
12112 end function
12113#endif
12114
12115#if RK2_ENABLED
12116 module function QAGP_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12118 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK2
12119#endif
12120 use pm_kind, only: RKC => RK2
12121 procedure(real(RKC)) :: getFunc
12122 type(ninf_type) , intent(in) :: lb
12123 real(RKC) , intent(in) :: ub
12124 real(RKC) , intent(in) :: abstol
12125 real(RKC) , intent(in) :: reltol
12126 type(GK15_type) , intent(in) :: qrule
12127 real(RKC) , intent(in) , contiguous :: help(:)
12128 real(RKC) , intent(out) :: integral, abserr
12129 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12130 integer(IK) , intent(out) , contiguous :: sindex(:)
12131 integer(IK) , intent(out) :: neval
12132 integer(IK) , intent(out) :: nint
12133 integer(IK) :: err
12134 end function
12135#endif
12136
12137#if RK1_ENABLED
12138 module function QAGP_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12140 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK1
12141#endif
12142 use pm_kind, only: RKC => RK1
12143 procedure(real(RKC)) :: getFunc
12144 type(ninf_type) , intent(in) :: lb
12145 real(RKC) , intent(in) :: ub
12146 real(RKC) , intent(in) :: abstol
12147 real(RKC) , intent(in) :: reltol
12148 type(GK15_type) , intent(in) :: qrule
12149 real(RKC) , intent(in) , contiguous :: help(:)
12150 real(RKC) , intent(out) :: integral, abserr
12151 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12152 integer(IK) , intent(out) , contiguous :: sindex(:)
12153 integer(IK) , intent(out) :: neval
12154 integer(IK) , intent(out) :: nint
12155 integer(IK) :: err
12156 end function
12157#endif
12158
12159 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12160
12161#if RK5_ENABLED
12162 module function QAGP_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12164 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK5
12165#endif
12166 use pm_kind, only: RKC => RK5
12167 procedure(real(RKC)) :: getFunc
12168 type(ninf_type) , intent(in) :: lb
12169 type(pinf_type) , intent(in) :: ub
12170 real(RKC) , intent(in) :: abstol
12171 real(RKC) , intent(in) :: reltol
12172 type(GK15_type) , intent(in) :: qrule
12173 real(RKC) , intent(in) , contiguous :: help(:)
12174 real(RKC) , intent(out) :: integral, abserr
12175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12176 integer(IK) , intent(out) , contiguous :: sindex(:)
12177 integer(IK) , intent(out) :: neval
12178 integer(IK) , intent(out) :: nint
12179 integer(IK) :: err
12180 end function
12181#endif
12182
12183#if RK4_ENABLED
12184 module function QAGP_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12186 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK4
12187#endif
12188 use pm_kind, only: RKC => RK4
12189 procedure(real(RKC)) :: getFunc
12190 type(ninf_type) , intent(in) :: lb
12191 type(pinf_type) , intent(in) :: ub
12192 real(RKC) , intent(in) :: abstol
12193 real(RKC) , intent(in) :: reltol
12194 type(GK15_type) , intent(in) :: qrule
12195 real(RKC) , intent(in) , contiguous :: help(:)
12196 real(RKC) , intent(out) :: integral, abserr
12197 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12198 integer(IK) , intent(out) , contiguous :: sindex(:)
12199 integer(IK) , intent(out) :: neval
12200 integer(IK) , intent(out) :: nint
12201 integer(IK) :: err
12202 end function
12203#endif
12204
12205#if RK3_ENABLED
12206 module function QAGP_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12208 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK3
12209#endif
12210 use pm_kind, only: RKC => RK3
12211 procedure(real(RKC)) :: getFunc
12212 type(ninf_type) , intent(in) :: lb
12213 type(pinf_type) , intent(in) :: ub
12214 real(RKC) , intent(in) :: abstol
12215 real(RKC) , intent(in) :: reltol
12216 type(GK15_type) , intent(in) :: qrule
12217 real(RKC) , intent(in) , contiguous :: help(:)
12218 real(RKC) , intent(out) :: integral, abserr
12219 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12220 integer(IK) , intent(out) , contiguous :: sindex(:)
12221 integer(IK) , intent(out) :: neval
12222 integer(IK) , intent(out) :: nint
12223 integer(IK) :: err
12224 end function
12225#endif
12226
12227#if RK2_ENABLED
12228 module function QAGP_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12230 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK2
12231#endif
12232 use pm_kind, only: RKC => RK2
12233 procedure(real(RKC)) :: getFunc
12234 type(ninf_type) , intent(in) :: lb
12235 type(pinf_type) , intent(in) :: ub
12236 real(RKC) , intent(in) :: abstol
12237 real(RKC) , intent(in) :: reltol
12238 type(GK15_type) , intent(in) :: qrule
12239 real(RKC) , intent(in) , contiguous :: help(:)
12240 real(RKC) , intent(out) :: integral, abserr
12241 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12242 integer(IK) , intent(out) , contiguous :: sindex(:)
12243 integer(IK) , intent(out) :: neval
12244 integer(IK) , intent(out) :: nint
12245 integer(IK) :: err
12246 end function
12247#endif
12248
12249#if RK1_ENABLED
12250 module function QAGP_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12252 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK1
12253#endif
12254 use pm_kind, only: RKC => RK1
12255 procedure(real(RKC)) :: getFunc
12256 type(ninf_type) , intent(in) :: lb
12257 type(pinf_type) , intent(in) :: ub
12258 real(RKC) , intent(in) :: abstol
12259 real(RKC) , intent(in) :: reltol
12260 type(GK15_type) , intent(in) :: qrule
12261 real(RKC) , intent(in) , contiguous :: help(:)
12262 real(RKC) , intent(out) :: integral, abserr
12263 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12264 integer(IK) , intent(out) , contiguous :: sindex(:)
12265 integer(IK) , intent(out) :: neval
12266 integer(IK) , intent(out) :: nint
12267 integer(IK) :: err
12268 end function
12269#endif
12270
12271 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12272
12273 end interface
12274
12275 ! QAGP_GK21
12276
12277 interface getQuadErr
12278
12279 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12280
12281#if RK5_ENABLED
12282 module function QAGP_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12284 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK5
12285#endif
12286 use pm_kind, only: RKC => RK5
12287 procedure(real(RKC)) :: getFunc
12288 real(RKC) , intent(in) :: lb
12289 real(RKC) , intent(in) :: ub
12290 real(RKC) , intent(in) :: abstol
12291 real(RKC) , intent(in) :: reltol
12292 type(GK21_type) , intent(in) :: qrule
12293 real(RKC) , intent(in) , contiguous :: help(:)
12294 real(RKC) , intent(out) :: integral, abserr
12295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12296 integer(IK) , intent(out) , contiguous :: sindex(:)
12297 integer(IK) , intent(out) :: neval
12298 integer(IK) , intent(out) :: nint
12299 integer(IK) :: err
12300 end function
12301#endif
12302
12303#if RK4_ENABLED
12304 module function QAGP_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12306 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK4
12307#endif
12308 use pm_kind, only: RKC => RK4
12309 procedure(real(RKC)) :: getFunc
12310 real(RKC) , intent(in) :: lb
12311 real(RKC) , intent(in) :: ub
12312 real(RKC) , intent(in) :: abstol
12313 real(RKC) , intent(in) :: reltol
12314 type(GK21_type) , intent(in) :: qrule
12315 real(RKC) , intent(in) , contiguous :: help(:)
12316 real(RKC) , intent(out) :: integral, abserr
12317 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12318 integer(IK) , intent(out) , contiguous :: sindex(:)
12319 integer(IK) , intent(out) :: neval
12320 integer(IK) , intent(out) :: nint
12321 integer(IK) :: err
12322 end function
12323#endif
12324
12325#if RK3_ENABLED
12326 module function QAGP_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12328 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK3
12329#endif
12330 use pm_kind, only: RKC => RK3
12331 procedure(real(RKC)) :: getFunc
12332 real(RKC) , intent(in) :: lb
12333 real(RKC) , intent(in) :: ub
12334 real(RKC) , intent(in) :: abstol
12335 real(RKC) , intent(in) :: reltol
12336 type(GK21_type) , intent(in) :: qrule
12337 real(RKC) , intent(in) , contiguous :: help(:)
12338 real(RKC) , intent(out) :: integral, abserr
12339 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12340 integer(IK) , intent(out) , contiguous :: sindex(:)
12341 integer(IK) , intent(out) :: neval
12342 integer(IK) , intent(out) :: nint
12343 integer(IK) :: err
12344 end function
12345#endif
12346
12347#if RK2_ENABLED
12348 module function QAGP_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12350 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK2
12351#endif
12352 use pm_kind, only: RKC => RK2
12353 procedure(real(RKC)) :: getFunc
12354 real(RKC) , intent(in) :: lb
12355 real(RKC) , intent(in) :: ub
12356 real(RKC) , intent(in) :: abstol
12357 real(RKC) , intent(in) :: reltol
12358 type(GK21_type) , intent(in) :: qrule
12359 real(RKC) , intent(in) , contiguous :: help(:)
12360 real(RKC) , intent(out) :: integral, abserr
12361 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12362 integer(IK) , intent(out) , contiguous :: sindex(:)
12363 integer(IK) , intent(out) :: neval
12364 integer(IK) , intent(out) :: nint
12365 integer(IK) :: err
12366 end function
12367#endif
12368
12369#if RK1_ENABLED
12370 module function QAGP_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12372 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK1
12373#endif
12374 use pm_kind, only: RKC => RK1
12375 procedure(real(RKC)) :: getFunc
12376 real(RKC) , intent(in) :: lb
12377 real(RKC) , intent(in) :: ub
12378 real(RKC) , intent(in) :: abstol
12379 real(RKC) , intent(in) :: reltol
12380 type(GK21_type) , intent(in) :: qrule
12381 real(RKC) , intent(in) , contiguous :: help(:)
12382 real(RKC) , intent(out) :: integral, abserr
12383 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12384 integer(IK) , intent(out) , contiguous :: sindex(:)
12385 integer(IK) , intent(out) :: neval
12386 integer(IK) , intent(out) :: nint
12387 integer(IK) :: err
12388 end function
12389#endif
12390
12391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12392
12393#if RK5_ENABLED
12394 module function QAGP_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12396 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK5
12397#endif
12398 use pm_kind, only: RKC => RK5
12399 procedure(real(RKC)) :: getFunc
12400 real(RKC) , intent(in) :: lb
12401 type(pinf_type) , intent(in) :: ub
12402 real(RKC) , intent(in) :: abstol
12403 real(RKC) , intent(in) :: reltol
12404 type(GK21_type) , intent(in) :: qrule
12405 real(RKC) , intent(in) , contiguous :: help(:)
12406 real(RKC) , intent(out) :: integral, abserr
12407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12408 integer(IK) , intent(out) , contiguous :: sindex(:)
12409 integer(IK) , intent(out) :: neval
12410 integer(IK) , intent(out) :: nint
12411 integer(IK) :: err
12412 end function
12413#endif
12414
12415#if RK4_ENABLED
12416 module function QAGP_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12418 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK4
12419#endif
12420 use pm_kind, only: RKC => RK4
12421 procedure(real(RKC)) :: getFunc
12422 real(RKC) , intent(in) :: lb
12423 type(pinf_type) , intent(in) :: ub
12424 real(RKC) , intent(in) :: abstol
12425 real(RKC) , intent(in) :: reltol
12426 type(GK21_type) , intent(in) :: qrule
12427 real(RKC) , intent(in) , contiguous :: help(:)
12428 real(RKC) , intent(out) :: integral, abserr
12429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12430 integer(IK) , intent(out) , contiguous :: sindex(:)
12431 integer(IK) , intent(out) :: neval
12432 integer(IK) , intent(out) :: nint
12433 integer(IK) :: err
12434 end function
12435#endif
12436
12437#if RK3_ENABLED
12438 module function QAGP_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12440 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK3
12441#endif
12442 use pm_kind, only: RKC => RK3
12443 procedure(real(RKC)) :: getFunc
12444 real(RKC) , intent(in) :: lb
12445 type(pinf_type) , intent(in) :: ub
12446 real(RKC) , intent(in) :: abstol
12447 real(RKC) , intent(in) :: reltol
12448 type(GK21_type) , intent(in) :: qrule
12449 real(RKC) , intent(in) , contiguous :: help(:)
12450 real(RKC) , intent(out) :: integral, abserr
12451 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12452 integer(IK) , intent(out) , contiguous :: sindex(:)
12453 integer(IK) , intent(out) :: neval
12454 integer(IK) , intent(out) :: nint
12455 integer(IK) :: err
12456 end function
12457#endif
12458
12459#if RK2_ENABLED
12460 module function QAGP_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12462 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK2
12463#endif
12464 use pm_kind, only: RKC => RK2
12465 procedure(real(RKC)) :: getFunc
12466 real(RKC) , intent(in) :: lb
12467 type(pinf_type) , intent(in) :: ub
12468 real(RKC) , intent(in) :: abstol
12469 real(RKC) , intent(in) :: reltol
12470 type(GK21_type) , intent(in) :: qrule
12471 real(RKC) , intent(in) , contiguous :: help(:)
12472 real(RKC) , intent(out) :: integral, abserr
12473 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12474 integer(IK) , intent(out) , contiguous :: sindex(:)
12475 integer(IK) , intent(out) :: neval
12476 integer(IK) , intent(out) :: nint
12477 integer(IK) :: err
12478 end function
12479#endif
12480
12481#if RK1_ENABLED
12482 module function QAGP_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12484 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK1
12485#endif
12486 use pm_kind, only: RKC => RK1
12487 procedure(real(RKC)) :: getFunc
12488 real(RKC) , intent(in) :: lb
12489 type(pinf_type) , intent(in) :: ub
12490 real(RKC) , intent(in) :: abstol
12491 real(RKC) , intent(in) :: reltol
12492 type(GK21_type) , intent(in) :: qrule
12493 real(RKC) , intent(in) , contiguous :: help(:)
12494 real(RKC) , intent(out) :: integral, abserr
12495 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12496 integer(IK) , intent(out) , contiguous :: sindex(:)
12497 integer(IK) , intent(out) :: neval
12498 integer(IK) , intent(out) :: nint
12499 integer(IK) :: err
12500 end function
12501#endif
12502
12503 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12504
12505#if RK5_ENABLED
12506 module function QAGP_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12508 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK5
12509#endif
12510 use pm_kind, only: RKC => RK5
12511 procedure(real(RKC)) :: getFunc
12512 type(ninf_type) , intent(in) :: lb
12513 real(RKC) , intent(in) :: ub
12514 real(RKC) , intent(in) :: abstol
12515 real(RKC) , intent(in) :: reltol
12516 type(GK21_type) , intent(in) :: qrule
12517 real(RKC) , intent(in) , contiguous :: help(:)
12518 real(RKC) , intent(out) :: integral, abserr
12519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12520 integer(IK) , intent(out) , contiguous :: sindex(:)
12521 integer(IK) , intent(out) :: neval
12522 integer(IK) , intent(out) :: nint
12523 integer(IK) :: err
12524 end function
12525#endif
12526
12527#if RK4_ENABLED
12528 module function QAGP_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12530 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK4
12531#endif
12532 use pm_kind, only: RKC => RK4
12533 procedure(real(RKC)) :: getFunc
12534 type(ninf_type) , intent(in) :: lb
12535 real(RKC) , intent(in) :: ub
12536 real(RKC) , intent(in) :: abstol
12537 real(RKC) , intent(in) :: reltol
12538 type(GK21_type) , intent(in) :: qrule
12539 real(RKC) , intent(in) , contiguous :: help(:)
12540 real(RKC) , intent(out) :: integral, abserr
12541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12542 integer(IK) , intent(out) , contiguous :: sindex(:)
12543 integer(IK) , intent(out) :: neval
12544 integer(IK) , intent(out) :: nint
12545 integer(IK) :: err
12546 end function
12547#endif
12548
12549#if RK3_ENABLED
12550 module function QAGP_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12552 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK3
12553#endif
12554 use pm_kind, only: RKC => RK3
12555 procedure(real(RKC)) :: getFunc
12556 type(ninf_type) , intent(in) :: lb
12557 real(RKC) , intent(in) :: ub
12558 real(RKC) , intent(in) :: abstol
12559 real(RKC) , intent(in) :: reltol
12560 type(GK21_type) , intent(in) :: qrule
12561 real(RKC) , intent(in) , contiguous :: help(:)
12562 real(RKC) , intent(out) :: integral, abserr
12563 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12564 integer(IK) , intent(out) , contiguous :: sindex(:)
12565 integer(IK) , intent(out) :: neval
12566 integer(IK) , intent(out) :: nint
12567 integer(IK) :: err
12568 end function
12569#endif
12570
12571#if RK2_ENABLED
12572 module function QAGP_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12574 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK2
12575#endif
12576 use pm_kind, only: RKC => RK2
12577 procedure(real(RKC)) :: getFunc
12578 type(ninf_type) , intent(in) :: lb
12579 real(RKC) , intent(in) :: ub
12580 real(RKC) , intent(in) :: abstol
12581 real(RKC) , intent(in) :: reltol
12582 type(GK21_type) , intent(in) :: qrule
12583 real(RKC) , intent(in) , contiguous :: help(:)
12584 real(RKC) , intent(out) :: integral, abserr
12585 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12586 integer(IK) , intent(out) , contiguous :: sindex(:)
12587 integer(IK) , intent(out) :: neval
12588 integer(IK) , intent(out) :: nint
12589 integer(IK) :: err
12590 end function
12591#endif
12592
12593#if RK1_ENABLED
12594 module function QAGP_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12596 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK1
12597#endif
12598 use pm_kind, only: RKC => RK1
12599 procedure(real(RKC)) :: getFunc
12600 type(ninf_type) , intent(in) :: lb
12601 real(RKC) , intent(in) :: ub
12602 real(RKC) , intent(in) :: abstol
12603 real(RKC) , intent(in) :: reltol
12604 type(GK21_type) , intent(in) :: qrule
12605 real(RKC) , intent(in) , contiguous :: help(:)
12606 real(RKC) , intent(out) :: integral, abserr
12607 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12608 integer(IK) , intent(out) , contiguous :: sindex(:)
12609 integer(IK) , intent(out) :: neval
12610 integer(IK) , intent(out) :: nint
12611 integer(IK) :: err
12612 end function
12613#endif
12614
12615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12616
12617#if RK5_ENABLED
12618 module function QAGP_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK5
12621#endif
12622 use pm_kind, only: RKC => RK5
12623 procedure(real(RKC)) :: getFunc
12624 type(ninf_type) , intent(in) :: lb
12625 type(pinf_type) , intent(in) :: ub
12626 real(RKC) , intent(in) :: abstol
12627 real(RKC) , intent(in) :: reltol
12628 type(GK21_type) , intent(in) :: qrule
12629 real(RKC) , intent(in) , contiguous :: help(:)
12630 real(RKC) , intent(out) :: integral, abserr
12631 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12632 integer(IK) , intent(out) , contiguous :: sindex(:)
12633 integer(IK) , intent(out) :: neval
12634 integer(IK) , intent(out) :: nint
12635 integer(IK) :: err
12636 end function
12637#endif
12638
12639#if RK4_ENABLED
12640 module function QAGP_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12642 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK4
12643#endif
12644 use pm_kind, only: RKC => RK4
12645 procedure(real(RKC)) :: getFunc
12646 type(ninf_type) , intent(in) :: lb
12647 type(pinf_type) , intent(in) :: ub
12648 real(RKC) , intent(in) :: abstol
12649 real(RKC) , intent(in) :: reltol
12650 type(GK21_type) , intent(in) :: qrule
12651 real(RKC) , intent(in) , contiguous :: help(:)
12652 real(RKC) , intent(out) :: integral, abserr
12653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12654 integer(IK) , intent(out) , contiguous :: sindex(:)
12655 integer(IK) , intent(out) :: neval
12656 integer(IK) , intent(out) :: nint
12657 integer(IK) :: err
12658 end function
12659#endif
12660
12661#if RK3_ENABLED
12662 module function QAGP_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK3
12665#endif
12666 use pm_kind, only: RKC => RK3
12667 procedure(real(RKC)) :: getFunc
12668 type(ninf_type) , intent(in) :: lb
12669 type(pinf_type) , intent(in) :: ub
12670 real(RKC) , intent(in) :: abstol
12671 real(RKC) , intent(in) :: reltol
12672 type(GK21_type) , intent(in) :: qrule
12673 real(RKC) , intent(in) , contiguous :: help(:)
12674 real(RKC) , intent(out) :: integral, abserr
12675 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12676 integer(IK) , intent(out) , contiguous :: sindex(:)
12677 integer(IK) , intent(out) :: neval
12678 integer(IK) , intent(out) :: nint
12679 integer(IK) :: err
12680 end function
12681#endif
12682
12683#if RK2_ENABLED
12684 module function QAGP_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12686 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK2
12687#endif
12688 use pm_kind, only: RKC => RK2
12689 procedure(real(RKC)) :: getFunc
12690 type(ninf_type) , intent(in) :: lb
12691 type(pinf_type) , intent(in) :: ub
12692 real(RKC) , intent(in) :: abstol
12693 real(RKC) , intent(in) :: reltol
12694 type(GK21_type) , intent(in) :: qrule
12695 real(RKC) , intent(in) , contiguous :: help(:)
12696 real(RKC) , intent(out) :: integral, abserr
12697 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12698 integer(IK) , intent(out) , contiguous :: sindex(:)
12699 integer(IK) , intent(out) :: neval
12700 integer(IK) , intent(out) :: nint
12701 integer(IK) :: err
12702 end function
12703#endif
12704
12705#if RK1_ENABLED
12706 module function QAGP_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK1
12709#endif
12710 use pm_kind, only: RKC => RK1
12711 procedure(real(RKC)) :: getFunc
12712 type(ninf_type) , intent(in) :: lb
12713 type(pinf_type) , intent(in) :: ub
12714 real(RKC) , intent(in) :: abstol
12715 real(RKC) , intent(in) :: reltol
12716 type(GK21_type) , intent(in) :: qrule
12717 real(RKC) , intent(in) , contiguous :: help(:)
12718 real(RKC) , intent(out) :: integral, abserr
12719 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12720 integer(IK) , intent(out) , contiguous :: sindex(:)
12721 integer(IK) , intent(out) :: neval
12722 integer(IK) , intent(out) :: nint
12723 integer(IK) :: err
12724 end function
12725#endif
12726
12727 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12728
12729 end interface
12730
12731 ! QAGP_GK31
12732
12733 interface getQuadErr
12734
12735 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12736
12737#if RK5_ENABLED
12738 module function QAGP_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12740 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK5
12741#endif
12742 use pm_kind, only: RKC => RK5
12743 procedure(real(RKC)) :: getFunc
12744 real(RKC) , intent(in) :: lb
12745 real(RKC) , intent(in) :: ub
12746 real(RKC) , intent(in) :: abstol
12747 real(RKC) , intent(in) :: reltol
12748 type(GK31_type) , intent(in) :: qrule
12749 real(RKC) , intent(in) , contiguous :: help(:)
12750 real(RKC) , intent(out) :: integral, abserr
12751 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12752 integer(IK) , intent(out) , contiguous :: sindex(:)
12753 integer(IK) , intent(out) :: neval
12754 integer(IK) , intent(out) :: nint
12755 integer(IK) :: err
12756 end function
12757#endif
12758
12759#if RK4_ENABLED
12760 module function QAGP_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12762 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK4
12763#endif
12764 use pm_kind, only: RKC => RK4
12765 procedure(real(RKC)) :: getFunc
12766 real(RKC) , intent(in) :: lb
12767 real(RKC) , intent(in) :: ub
12768 real(RKC) , intent(in) :: abstol
12769 real(RKC) , intent(in) :: reltol
12770 type(GK31_type) , intent(in) :: qrule
12771 real(RKC) , intent(in) , contiguous :: help(:)
12772 real(RKC) , intent(out) :: integral, abserr
12773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12774 integer(IK) , intent(out) , contiguous :: sindex(:)
12775 integer(IK) , intent(out) :: neval
12776 integer(IK) , intent(out) :: nint
12777 integer(IK) :: err
12778 end function
12779#endif
12780
12781#if RK3_ENABLED
12782 module function QAGP_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12784 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK3
12785#endif
12786 use pm_kind, only: RKC => RK3
12787 procedure(real(RKC)) :: getFunc
12788 real(RKC) , intent(in) :: lb
12789 real(RKC) , intent(in) :: ub
12790 real(RKC) , intent(in) :: abstol
12791 real(RKC) , intent(in) :: reltol
12792 type(GK31_type) , intent(in) :: qrule
12793 real(RKC) , intent(in) , contiguous :: help(:)
12794 real(RKC) , intent(out) :: integral, abserr
12795 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12796 integer(IK) , intent(out) , contiguous :: sindex(:)
12797 integer(IK) , intent(out) :: neval
12798 integer(IK) , intent(out) :: nint
12799 integer(IK) :: err
12800 end function
12801#endif
12802
12803#if RK2_ENABLED
12804 module function QAGP_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12806 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK2
12807#endif
12808 use pm_kind, only: RKC => RK2
12809 procedure(real(RKC)) :: getFunc
12810 real(RKC) , intent(in) :: lb
12811 real(RKC) , intent(in) :: ub
12812 real(RKC) , intent(in) :: abstol
12813 real(RKC) , intent(in) :: reltol
12814 type(GK31_type) , intent(in) :: qrule
12815 real(RKC) , intent(in) , contiguous :: help(:)
12816 real(RKC) , intent(out) :: integral, abserr
12817 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12818 integer(IK) , intent(out) , contiguous :: sindex(:)
12819 integer(IK) , intent(out) :: neval
12820 integer(IK) , intent(out) :: nint
12821 integer(IK) :: err
12822 end function
12823#endif
12824
12825#if RK1_ENABLED
12826 module function QAGP_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12828 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK1
12829#endif
12830 use pm_kind, only: RKC => RK1
12831 procedure(real(RKC)) :: getFunc
12832 real(RKC) , intent(in) :: lb
12833 real(RKC) , intent(in) :: ub
12834 real(RKC) , intent(in) :: abstol
12835 real(RKC) , intent(in) :: reltol
12836 type(GK31_type) , intent(in) :: qrule
12837 real(RKC) , intent(in) , contiguous :: help(:)
12838 real(RKC) , intent(out) :: integral, abserr
12839 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12840 integer(IK) , intent(out) , contiguous :: sindex(:)
12841 integer(IK) , intent(out) :: neval
12842 integer(IK) , intent(out) :: nint
12843 integer(IK) :: err
12844 end function
12845#endif
12846
12847 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12848
12849#if RK5_ENABLED
12850 module function QAGP_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12852 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK5
12853#endif
12854 use pm_kind, only: RKC => RK5
12855 procedure(real(RKC)) :: getFunc
12856 real(RKC) , intent(in) :: lb
12857 type(pinf_type) , intent(in) :: ub
12858 real(RKC) , intent(in) :: abstol
12859 real(RKC) , intent(in) :: reltol
12860 type(GK31_type) , intent(in) :: qrule
12861 real(RKC) , intent(in) , contiguous :: help(:)
12862 real(RKC) , intent(out) :: integral, abserr
12863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12864 integer(IK) , intent(out) , contiguous :: sindex(:)
12865 integer(IK) , intent(out) :: neval
12866 integer(IK) , intent(out) :: nint
12867 integer(IK) :: err
12868 end function
12869#endif
12870
12871#if RK4_ENABLED
12872 module function QAGP_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12874 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK4
12875#endif
12876 use pm_kind, only: RKC => RK4
12877 procedure(real(RKC)) :: getFunc
12878 real(RKC) , intent(in) :: lb
12879 type(pinf_type) , intent(in) :: ub
12880 real(RKC) , intent(in) :: abstol
12881 real(RKC) , intent(in) :: reltol
12882 type(GK31_type) , intent(in) :: qrule
12883 real(RKC) , intent(in) , contiguous :: help(:)
12884 real(RKC) , intent(out) :: integral, abserr
12885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12886 integer(IK) , intent(out) , contiguous :: sindex(:)
12887 integer(IK) , intent(out) :: neval
12888 integer(IK) , intent(out) :: nint
12889 integer(IK) :: err
12890 end function
12891#endif
12892
12893#if RK3_ENABLED
12894 module function QAGP_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12896 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK3
12897#endif
12898 use pm_kind, only: RKC => RK3
12899 procedure(real(RKC)) :: getFunc
12900 real(RKC) , intent(in) :: lb
12901 type(pinf_type) , intent(in) :: ub
12902 real(RKC) , intent(in) :: abstol
12903 real(RKC) , intent(in) :: reltol
12904 type(GK31_type) , intent(in) :: qrule
12905 real(RKC) , intent(in) , contiguous :: help(:)
12906 real(RKC) , intent(out) :: integral, abserr
12907 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12908 integer(IK) , intent(out) , contiguous :: sindex(:)
12909 integer(IK) , intent(out) :: neval
12910 integer(IK) , intent(out) :: nint
12911 integer(IK) :: err
12912 end function
12913#endif
12914
12915#if RK2_ENABLED
12916 module function QAGP_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12918 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK2
12919#endif
12920 use pm_kind, only: RKC => RK2
12921 procedure(real(RKC)) :: getFunc
12922 real(RKC) , intent(in) :: lb
12923 type(pinf_type) , intent(in) :: ub
12924 real(RKC) , intent(in) :: abstol
12925 real(RKC) , intent(in) :: reltol
12926 type(GK31_type) , intent(in) :: qrule
12927 real(RKC) , intent(in) , contiguous :: help(:)
12928 real(RKC) , intent(out) :: integral, abserr
12929 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12930 integer(IK) , intent(out) , contiguous :: sindex(:)
12931 integer(IK) , intent(out) :: neval
12932 integer(IK) , intent(out) :: nint
12933 integer(IK) :: err
12934 end function
12935#endif
12936
12937#if RK1_ENABLED
12938 module function QAGP_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12940 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK1
12941#endif
12942 use pm_kind, only: RKC => RK1
12943 procedure(real(RKC)) :: getFunc
12944 real(RKC) , intent(in) :: lb
12945 type(pinf_type) , intent(in) :: ub
12946 real(RKC) , intent(in) :: abstol
12947 real(RKC) , intent(in) :: reltol
12948 type(GK31_type) , intent(in) :: qrule
12949 real(RKC) , intent(in) , contiguous :: help(:)
12950 real(RKC) , intent(out) :: integral, abserr
12951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12952 integer(IK) , intent(out) , contiguous :: sindex(:)
12953 integer(IK) , intent(out) :: neval
12954 integer(IK) , intent(out) :: nint
12955 integer(IK) :: err
12956 end function
12957#endif
12958
12959 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12960
12961#if RK5_ENABLED
12962 module function QAGP_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK5
12965#endif
12966 use pm_kind, only: RKC => RK5
12967 procedure(real(RKC)) :: getFunc
12968 type(ninf_type) , intent(in) :: lb
12969 real(RKC) , intent(in) :: ub
12970 real(RKC) , intent(in) :: abstol
12971 real(RKC) , intent(in) :: reltol
12972 type(GK31_type) , intent(in) :: qrule
12973 real(RKC) , intent(in) , contiguous :: help(:)
12974 real(RKC) , intent(out) :: integral, abserr
12975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12976 integer(IK) , intent(out) , contiguous :: sindex(:)
12977 integer(IK) , intent(out) :: neval
12978 integer(IK) , intent(out) :: nint
12979 integer(IK) :: err
12980 end function
12981#endif
12982
12983#if RK4_ENABLED
12984 module function QAGP_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK4
12987#endif
12988 use pm_kind, only: RKC => RK4
12989 procedure(real(RKC)) :: getFunc
12990 type(ninf_type) , intent(in) :: lb
12991 real(RKC) , intent(in) :: ub
12992 real(RKC) , intent(in) :: abstol
12993 real(RKC) , intent(in) :: reltol
12994 type(GK31_type) , intent(in) :: qrule
12995 real(RKC) , intent(in) , contiguous :: help(:)
12996 real(RKC) , intent(out) :: integral, abserr
12997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12998 integer(IK) , intent(out) , contiguous :: sindex(:)
12999 integer(IK) , intent(out) :: neval
13000 integer(IK) , intent(out) :: nint
13001 integer(IK) :: err
13002 end function
13003#endif
13004
13005#if RK3_ENABLED
13006 module function QAGP_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13008 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK3
13009#endif
13010 use pm_kind, only: RKC => RK3
13011 procedure(real(RKC)) :: getFunc
13012 type(ninf_type) , intent(in) :: lb
13013 real(RKC) , intent(in) :: ub
13014 real(RKC) , intent(in) :: abstol
13015 real(RKC) , intent(in) :: reltol
13016 type(GK31_type) , intent(in) :: qrule
13017 real(RKC) , intent(in) , contiguous :: help(:)
13018 real(RKC) , intent(out) :: integral, abserr
13019 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13020 integer(IK) , intent(out) , contiguous :: sindex(:)
13021 integer(IK) , intent(out) :: neval
13022 integer(IK) , intent(out) :: nint
13023 integer(IK) :: err
13024 end function
13025#endif
13026
13027#if RK2_ENABLED
13028 module function QAGP_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13030 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK2
13031#endif
13032 use pm_kind, only: RKC => RK2
13033 procedure(real(RKC)) :: getFunc
13034 type(ninf_type) , intent(in) :: lb
13035 real(RKC) , intent(in) :: ub
13036 real(RKC) , intent(in) :: abstol
13037 real(RKC) , intent(in) :: reltol
13038 type(GK31_type) , intent(in) :: qrule
13039 real(RKC) , intent(in) , contiguous :: help(:)
13040 real(RKC) , intent(out) :: integral, abserr
13041 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13042 integer(IK) , intent(out) , contiguous :: sindex(:)
13043 integer(IK) , intent(out) :: neval
13044 integer(IK) , intent(out) :: nint
13045 integer(IK) :: err
13046 end function
13047#endif
13048
13049#if RK1_ENABLED
13050 module function QAGP_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13052 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK1
13053#endif
13054 use pm_kind, only: RKC => RK1
13055 procedure(real(RKC)) :: getFunc
13056 type(ninf_type) , intent(in) :: lb
13057 real(RKC) , intent(in) :: ub
13058 real(RKC) , intent(in) :: abstol
13059 real(RKC) , intent(in) :: reltol
13060 type(GK31_type) , intent(in) :: qrule
13061 real(RKC) , intent(in) , contiguous :: help(:)
13062 real(RKC) , intent(out) :: integral, abserr
13063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13064 integer(IK) , intent(out) , contiguous :: sindex(:)
13065 integer(IK) , intent(out) :: neval
13066 integer(IK) , intent(out) :: nint
13067 integer(IK) :: err
13068 end function
13069#endif
13070
13071 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13072
13073#if RK5_ENABLED
13074 module function QAGP_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13076 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK5
13077#endif
13078 use pm_kind, only: RKC => RK5
13079 procedure(real(RKC)) :: getFunc
13080 type(ninf_type) , intent(in) :: lb
13081 type(pinf_type) , intent(in) :: ub
13082 real(RKC) , intent(in) :: abstol
13083 real(RKC) , intent(in) :: reltol
13084 type(GK31_type) , intent(in) :: qrule
13085 real(RKC) , intent(in) , contiguous :: help(:)
13086 real(RKC) , intent(out) :: integral, abserr
13087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13088 integer(IK) , intent(out) , contiguous :: sindex(:)
13089 integer(IK) , intent(out) :: neval
13090 integer(IK) , intent(out) :: nint
13091 integer(IK) :: err
13092 end function
13093#endif
13094
13095#if RK4_ENABLED
13096 module function QAGP_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13098 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK4
13099#endif
13100 use pm_kind, only: RKC => RK4
13101 procedure(real(RKC)) :: getFunc
13102 type(ninf_type) , intent(in) :: lb
13103 type(pinf_type) , intent(in) :: ub
13104 real(RKC) , intent(in) :: abstol
13105 real(RKC) , intent(in) :: reltol
13106 type(GK31_type) , intent(in) :: qrule
13107 real(RKC) , intent(in) , contiguous :: help(:)
13108 real(RKC) , intent(out) :: integral, abserr
13109 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13110 integer(IK) , intent(out) , contiguous :: sindex(:)
13111 integer(IK) , intent(out) :: neval
13112 integer(IK) , intent(out) :: nint
13113 integer(IK) :: err
13114 end function
13115#endif
13116
13117#if RK3_ENABLED
13118 module function QAGP_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13120 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK3
13121#endif
13122 use pm_kind, only: RKC => RK3
13123 procedure(real(RKC)) :: getFunc
13124 type(ninf_type) , intent(in) :: lb
13125 type(pinf_type) , intent(in) :: ub
13126 real(RKC) , intent(in) :: abstol
13127 real(RKC) , intent(in) :: reltol
13128 type(GK31_type) , intent(in) :: qrule
13129 real(RKC) , intent(in) , contiguous :: help(:)
13130 real(RKC) , intent(out) :: integral, abserr
13131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13132 integer(IK) , intent(out) , contiguous :: sindex(:)
13133 integer(IK) , intent(out) :: neval
13134 integer(IK) , intent(out) :: nint
13135 integer(IK) :: err
13136 end function
13137#endif
13138
13139#if RK2_ENABLED
13140 module function QAGP_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK2
13143#endif
13144 use pm_kind, only: RKC => RK2
13145 procedure(real(RKC)) :: getFunc
13146 type(ninf_type) , intent(in) :: lb
13147 type(pinf_type) , intent(in) :: ub
13148 real(RKC) , intent(in) :: abstol
13149 real(RKC) , intent(in) :: reltol
13150 type(GK31_type) , intent(in) :: qrule
13151 real(RKC) , intent(in) , contiguous :: help(:)
13152 real(RKC) , intent(out) :: integral, abserr
13153 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13154 integer(IK) , intent(out) , contiguous :: sindex(:)
13155 integer(IK) , intent(out) :: neval
13156 integer(IK) , intent(out) :: nint
13157 integer(IK) :: err
13158 end function
13159#endif
13160
13161#if RK1_ENABLED
13162 module function QAGP_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13164 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK1
13165#endif
13166 use pm_kind, only: RKC => RK1
13167 procedure(real(RKC)) :: getFunc
13168 type(ninf_type) , intent(in) :: lb
13169 type(pinf_type) , intent(in) :: ub
13170 real(RKC) , intent(in) :: abstol
13171 real(RKC) , intent(in) :: reltol
13172 type(GK31_type) , intent(in) :: qrule
13173 real(RKC) , intent(in) , contiguous :: help(:)
13174 real(RKC) , intent(out) :: integral, abserr
13175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13176 integer(IK) , intent(out) , contiguous :: sindex(:)
13177 integer(IK) , intent(out) :: neval
13178 integer(IK) , intent(out) :: nint
13179 integer(IK) :: err
13180 end function
13181#endif
13182
13183 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13184
13185 end interface
13186
13187 ! QAGP_GK41
13188
13189 interface getQuadErr
13190
13191 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13192
13193#if RK5_ENABLED
13194 module function QAGP_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13196 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK5
13197#endif
13198 use pm_kind, only: RKC => RK5
13199 procedure(real(RKC)) :: getFunc
13200 real(RKC) , intent(in) :: lb
13201 real(RKC) , intent(in) :: ub
13202 real(RKC) , intent(in) :: abstol
13203 real(RKC) , intent(in) :: reltol
13204 type(GK41_type) , intent(in) :: qrule
13205 real(RKC) , intent(in) , contiguous :: help(:)
13206 real(RKC) , intent(out) :: integral, abserr
13207 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13208 integer(IK) , intent(out) , contiguous :: sindex(:)
13209 integer(IK) , intent(out) :: neval
13210 integer(IK) , intent(out) :: nint
13211 integer(IK) :: err
13212 end function
13213#endif
13214
13215#if RK4_ENABLED
13216 module function QAGP_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13218 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK4
13219#endif
13220 use pm_kind, only: RKC => RK4
13221 procedure(real(RKC)) :: getFunc
13222 real(RKC) , intent(in) :: lb
13223 real(RKC) , intent(in) :: ub
13224 real(RKC) , intent(in) :: abstol
13225 real(RKC) , intent(in) :: reltol
13226 type(GK41_type) , intent(in) :: qrule
13227 real(RKC) , intent(in) , contiguous :: help(:)
13228 real(RKC) , intent(out) :: integral, abserr
13229 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13230 integer(IK) , intent(out) , contiguous :: sindex(:)
13231 integer(IK) , intent(out) :: neval
13232 integer(IK) , intent(out) :: nint
13233 integer(IK) :: err
13234 end function
13235#endif
13236
13237#if RK3_ENABLED
13238 module function QAGP_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13240 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK3
13241#endif
13242 use pm_kind, only: RKC => RK3
13243 procedure(real(RKC)) :: getFunc
13244 real(RKC) , intent(in) :: lb
13245 real(RKC) , intent(in) :: ub
13246 real(RKC) , intent(in) :: abstol
13247 real(RKC) , intent(in) :: reltol
13248 type(GK41_type) , intent(in) :: qrule
13249 real(RKC) , intent(in) , contiguous :: help(:)
13250 real(RKC) , intent(out) :: integral, abserr
13251 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13252 integer(IK) , intent(out) , contiguous :: sindex(:)
13253 integer(IK) , intent(out) :: neval
13254 integer(IK) , intent(out) :: nint
13255 integer(IK) :: err
13256 end function
13257#endif
13258
13259#if RK2_ENABLED
13260 module function QAGP_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13262 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK2
13263#endif
13264 use pm_kind, only: RKC => RK2
13265 procedure(real(RKC)) :: getFunc
13266 real(RKC) , intent(in) :: lb
13267 real(RKC) , intent(in) :: ub
13268 real(RKC) , intent(in) :: abstol
13269 real(RKC) , intent(in) :: reltol
13270 type(GK41_type) , intent(in) :: qrule
13271 real(RKC) , intent(in) , contiguous :: help(:)
13272 real(RKC) , intent(out) :: integral, abserr
13273 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13274 integer(IK) , intent(out) , contiguous :: sindex(:)
13275 integer(IK) , intent(out) :: neval
13276 integer(IK) , intent(out) :: nint
13277 integer(IK) :: err
13278 end function
13279#endif
13280
13281#if RK1_ENABLED
13282 module function QAGP_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13284 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK1
13285#endif
13286 use pm_kind, only: RKC => RK1
13287 procedure(real(RKC)) :: getFunc
13288 real(RKC) , intent(in) :: lb
13289 real(RKC) , intent(in) :: ub
13290 real(RKC) , intent(in) :: abstol
13291 real(RKC) , intent(in) :: reltol
13292 type(GK41_type) , intent(in) :: qrule
13293 real(RKC) , intent(in) , contiguous :: help(:)
13294 real(RKC) , intent(out) :: integral, abserr
13295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13296 integer(IK) , intent(out) , contiguous :: sindex(:)
13297 integer(IK) , intent(out) :: neval
13298 integer(IK) , intent(out) :: nint
13299 integer(IK) :: err
13300 end function
13301#endif
13302
13303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13304
13305#if RK5_ENABLED
13306 module function QAGP_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13308 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK5
13309#endif
13310 use pm_kind, only: RKC => RK5
13311 procedure(real(RKC)) :: getFunc
13312 real(RKC) , intent(in) :: lb
13313 type(pinf_type) , intent(in) :: ub
13314 real(RKC) , intent(in) :: abstol
13315 real(RKC) , intent(in) :: reltol
13316 type(GK41_type) , intent(in) :: qrule
13317 real(RKC) , intent(in) , contiguous :: help(:)
13318 real(RKC) , intent(out) :: integral, abserr
13319 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13320 integer(IK) , intent(out) , contiguous :: sindex(:)
13321 integer(IK) , intent(out) :: neval
13322 integer(IK) , intent(out) :: nint
13323 integer(IK) :: err
13324 end function
13325#endif
13326
13327#if RK4_ENABLED
13328 module function QAGP_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13330 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK4
13331#endif
13332 use pm_kind, only: RKC => RK4
13333 procedure(real(RKC)) :: getFunc
13334 real(RKC) , intent(in) :: lb
13335 type(pinf_type) , intent(in) :: ub
13336 real(RKC) , intent(in) :: abstol
13337 real(RKC) , intent(in) :: reltol
13338 type(GK41_type) , intent(in) :: qrule
13339 real(RKC) , intent(in) , contiguous :: help(:)
13340 real(RKC) , intent(out) :: integral, abserr
13341 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13342 integer(IK) , intent(out) , contiguous :: sindex(:)
13343 integer(IK) , intent(out) :: neval
13344 integer(IK) , intent(out) :: nint
13345 integer(IK) :: err
13346 end function
13347#endif
13348
13349#if RK3_ENABLED
13350 module function QAGP_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13352 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK3
13353#endif
13354 use pm_kind, only: RKC => RK3
13355 procedure(real(RKC)) :: getFunc
13356 real(RKC) , intent(in) :: lb
13357 type(pinf_type) , intent(in) :: ub
13358 real(RKC) , intent(in) :: abstol
13359 real(RKC) , intent(in) :: reltol
13360 type(GK41_type) , intent(in) :: qrule
13361 real(RKC) , intent(in) , contiguous :: help(:)
13362 real(RKC) , intent(out) :: integral, abserr
13363 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13364 integer(IK) , intent(out) , contiguous :: sindex(:)
13365 integer(IK) , intent(out) :: neval
13366 integer(IK) , intent(out) :: nint
13367 integer(IK) :: err
13368 end function
13369#endif
13370
13371#if RK2_ENABLED
13372 module function QAGP_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13374 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK2
13375#endif
13376 use pm_kind, only: RKC => RK2
13377 procedure(real(RKC)) :: getFunc
13378 real(RKC) , intent(in) :: lb
13379 type(pinf_type) , intent(in) :: ub
13380 real(RKC) , intent(in) :: abstol
13381 real(RKC) , intent(in) :: reltol
13382 type(GK41_type) , intent(in) :: qrule
13383 real(RKC) , intent(in) , contiguous :: help(:)
13384 real(RKC) , intent(out) :: integral, abserr
13385 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13386 integer(IK) , intent(out) , contiguous :: sindex(:)
13387 integer(IK) , intent(out) :: neval
13388 integer(IK) , intent(out) :: nint
13389 integer(IK) :: err
13390 end function
13391#endif
13392
13393#if RK1_ENABLED
13394 module function QAGP_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13396 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK1
13397#endif
13398 use pm_kind, only: RKC => RK1
13399 procedure(real(RKC)) :: getFunc
13400 real(RKC) , intent(in) :: lb
13401 type(pinf_type) , intent(in) :: ub
13402 real(RKC) , intent(in) :: abstol
13403 real(RKC) , intent(in) :: reltol
13404 type(GK41_type) , intent(in) :: qrule
13405 real(RKC) , intent(in) , contiguous :: help(:)
13406 real(RKC) , intent(out) :: integral, abserr
13407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13408 integer(IK) , intent(out) , contiguous :: sindex(:)
13409 integer(IK) , intent(out) :: neval
13410 integer(IK) , intent(out) :: nint
13411 integer(IK) :: err
13412 end function
13413#endif
13414
13415 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13416
13417#if RK5_ENABLED
13418 module function QAGP_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13420 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK5
13421#endif
13422 use pm_kind, only: RKC => RK5
13423 procedure(real(RKC)) :: getFunc
13424 type(ninf_type) , intent(in) :: lb
13425 real(RKC) , intent(in) :: ub
13426 real(RKC) , intent(in) :: abstol
13427 real(RKC) , intent(in) :: reltol
13428 type(GK41_type) , intent(in) :: qrule
13429 real(RKC) , intent(in) , contiguous :: help(:)
13430 real(RKC) , intent(out) :: integral, abserr
13431 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13432 integer(IK) , intent(out) , contiguous :: sindex(:)
13433 integer(IK) , intent(out) :: neval
13434 integer(IK) , intent(out) :: nint
13435 integer(IK) :: err
13436 end function
13437#endif
13438
13439#if RK4_ENABLED
13440 module function QAGP_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13442 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK4
13443#endif
13444 use pm_kind, only: RKC => RK4
13445 procedure(real(RKC)) :: getFunc
13446 type(ninf_type) , intent(in) :: lb
13447 real(RKC) , intent(in) :: ub
13448 real(RKC) , intent(in) :: abstol
13449 real(RKC) , intent(in) :: reltol
13450 type(GK41_type) , intent(in) :: qrule
13451 real(RKC) , intent(in) , contiguous :: help(:)
13452 real(RKC) , intent(out) :: integral, abserr
13453 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13454 integer(IK) , intent(out) , contiguous :: sindex(:)
13455 integer(IK) , intent(out) :: neval
13456 integer(IK) , intent(out) :: nint
13457 integer(IK) :: err
13458 end function
13459#endif
13460
13461#if RK3_ENABLED
13462 module function QAGP_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13464 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK3
13465#endif
13466 use pm_kind, only: RKC => RK3
13467 procedure(real(RKC)) :: getFunc
13468 type(ninf_type) , intent(in) :: lb
13469 real(RKC) , intent(in) :: ub
13470 real(RKC) , intent(in) :: abstol
13471 real(RKC) , intent(in) :: reltol
13472 type(GK41_type) , intent(in) :: qrule
13473 real(RKC) , intent(in) , contiguous :: help(:)
13474 real(RKC) , intent(out) :: integral, abserr
13475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13476 integer(IK) , intent(out) , contiguous :: sindex(:)
13477 integer(IK) , intent(out) :: neval
13478 integer(IK) , intent(out) :: nint
13479 integer(IK) :: err
13480 end function
13481#endif
13482
13483#if RK2_ENABLED
13484 module function QAGP_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13486 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK2
13487#endif
13488 use pm_kind, only: RKC => RK2
13489 procedure(real(RKC)) :: getFunc
13490 type(ninf_type) , intent(in) :: lb
13491 real(RKC) , intent(in) :: ub
13492 real(RKC) , intent(in) :: abstol
13493 real(RKC) , intent(in) :: reltol
13494 type(GK41_type) , intent(in) :: qrule
13495 real(RKC) , intent(in) , contiguous :: help(:)
13496 real(RKC) , intent(out) :: integral, abserr
13497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13498 integer(IK) , intent(out) , contiguous :: sindex(:)
13499 integer(IK) , intent(out) :: neval
13500 integer(IK) , intent(out) :: nint
13501 integer(IK) :: err
13502 end function
13503#endif
13504
13505#if RK1_ENABLED
13506 module function QAGP_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13508 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK1
13509#endif
13510 use pm_kind, only: RKC => RK1
13511 procedure(real(RKC)) :: getFunc
13512 type(ninf_type) , intent(in) :: lb
13513 real(RKC) , intent(in) :: ub
13514 real(RKC) , intent(in) :: abstol
13515 real(RKC) , intent(in) :: reltol
13516 type(GK41_type) , intent(in) :: qrule
13517 real(RKC) , intent(in) , contiguous :: help(:)
13518 real(RKC) , intent(out) :: integral, abserr
13519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13520 integer(IK) , intent(out) , contiguous :: sindex(:)
13521 integer(IK) , intent(out) :: neval
13522 integer(IK) , intent(out) :: nint
13523 integer(IK) :: err
13524 end function
13525#endif
13526
13527 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13528
13529#if RK5_ENABLED
13530 module function QAGP_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13532 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK5
13533#endif
13534 use pm_kind, only: RKC => RK5
13535 procedure(real(RKC)) :: getFunc
13536 type(ninf_type) , intent(in) :: lb
13537 type(pinf_type) , intent(in) :: ub
13538 real(RKC) , intent(in) :: abstol
13539 real(RKC) , intent(in) :: reltol
13540 type(GK41_type) , intent(in) :: qrule
13541 real(RKC) , intent(in) , contiguous :: help(:)
13542 real(RKC) , intent(out) :: integral, abserr
13543 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13544 integer(IK) , intent(out) , contiguous :: sindex(:)
13545 integer(IK) , intent(out) :: neval
13546 integer(IK) , intent(out) :: nint
13547 integer(IK) :: err
13548 end function
13549#endif
13550
13551#if RK4_ENABLED
13552 module function QAGP_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13554 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK4
13555#endif
13556 use pm_kind, only: RKC => RK4
13557 procedure(real(RKC)) :: getFunc
13558 type(ninf_type) , intent(in) :: lb
13559 type(pinf_type) , intent(in) :: ub
13560 real(RKC) , intent(in) :: abstol
13561 real(RKC) , intent(in) :: reltol
13562 type(GK41_type) , intent(in) :: qrule
13563 real(RKC) , intent(in) , contiguous :: help(:)
13564 real(RKC) , intent(out) :: integral, abserr
13565 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13566 integer(IK) , intent(out) , contiguous :: sindex(:)
13567 integer(IK) , intent(out) :: neval
13568 integer(IK) , intent(out) :: nint
13569 integer(IK) :: err
13570 end function
13571#endif
13572
13573#if RK3_ENABLED
13574 module function QAGP_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13576 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK3
13577#endif
13578 use pm_kind, only: RKC => RK3
13579 procedure(real(RKC)) :: getFunc
13580 type(ninf_type) , intent(in) :: lb
13581 type(pinf_type) , intent(in) :: ub
13582 real(RKC) , intent(in) :: abstol
13583 real(RKC) , intent(in) :: reltol
13584 type(GK41_type) , intent(in) :: qrule
13585 real(RKC) , intent(in) , contiguous :: help(:)
13586 real(RKC) , intent(out) :: integral, abserr
13587 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13588 integer(IK) , intent(out) , contiguous :: sindex(:)
13589 integer(IK) , intent(out) :: neval
13590 integer(IK) , intent(out) :: nint
13591 integer(IK) :: err
13592 end function
13593#endif
13594
13595#if RK2_ENABLED
13596 module function QAGP_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13598 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK2
13599#endif
13600 use pm_kind, only: RKC => RK2
13601 procedure(real(RKC)) :: getFunc
13602 type(ninf_type) , intent(in) :: lb
13603 type(pinf_type) , intent(in) :: ub
13604 real(RKC) , intent(in) :: abstol
13605 real(RKC) , intent(in) :: reltol
13606 type(GK41_type) , intent(in) :: qrule
13607 real(RKC) , intent(in) , contiguous :: help(:)
13608 real(RKC) , intent(out) :: integral, abserr
13609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13610 integer(IK) , intent(out) , contiguous :: sindex(:)
13611 integer(IK) , intent(out) :: neval
13612 integer(IK) , intent(out) :: nint
13613 integer(IK) :: err
13614 end function
13615#endif
13616
13617#if RK1_ENABLED
13618 module function QAGP_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK1
13621#endif
13622 use pm_kind, only: RKC => RK1
13623 procedure(real(RKC)) :: getFunc
13624 type(ninf_type) , intent(in) :: lb
13625 type(pinf_type) , intent(in) :: ub
13626 real(RKC) , intent(in) :: abstol
13627 real(RKC) , intent(in) :: reltol
13628 type(GK41_type) , intent(in) :: qrule
13629 real(RKC) , intent(in) , contiguous :: help(:)
13630 real(RKC) , intent(out) :: integral, abserr
13631 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13632 integer(IK) , intent(out) , contiguous :: sindex(:)
13633 integer(IK) , intent(out) :: neval
13634 integer(IK) , intent(out) :: nint
13635 integer(IK) :: err
13636 end function
13637#endif
13638
13639 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13640
13641 end interface
13642
13643 ! QAGP_GK51
13644
13645 interface getQuadErr
13646
13647 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13648
13649#if RK5_ENABLED
13650 module function QAGP_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13652 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK5
13653#endif
13654 use pm_kind, only: RKC => RK5
13655 procedure(real(RKC)) :: getFunc
13656 real(RKC) , intent(in) :: lb
13657 real(RKC) , intent(in) :: ub
13658 real(RKC) , intent(in) :: abstol
13659 real(RKC) , intent(in) :: reltol
13660 type(GK51_type) , intent(in) :: qrule
13661 real(RKC) , intent(in) , contiguous :: help(:)
13662 real(RKC) , intent(out) :: integral, abserr
13663 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13664 integer(IK) , intent(out) , contiguous :: sindex(:)
13665 integer(IK) , intent(out) :: neval
13666 integer(IK) , intent(out) :: nint
13667 integer(IK) :: err
13668 end function
13669#endif
13670
13671#if RK4_ENABLED
13672 module function QAGP_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13674 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK4
13675#endif
13676 use pm_kind, only: RKC => RK4
13677 procedure(real(RKC)) :: getFunc
13678 real(RKC) , intent(in) :: lb
13679 real(RKC) , intent(in) :: ub
13680 real(RKC) , intent(in) :: abstol
13681 real(RKC) , intent(in) :: reltol
13682 type(GK51_type) , intent(in) :: qrule
13683 real(RKC) , intent(in) , contiguous :: help(:)
13684 real(RKC) , intent(out) :: integral, abserr
13685 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13686 integer(IK) , intent(out) , contiguous :: sindex(:)
13687 integer(IK) , intent(out) :: neval
13688 integer(IK) , intent(out) :: nint
13689 integer(IK) :: err
13690 end function
13691#endif
13692
13693#if RK3_ENABLED
13694 module function QAGP_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13696 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK3
13697#endif
13698 use pm_kind, only: RKC => RK3
13699 procedure(real(RKC)) :: getFunc
13700 real(RKC) , intent(in) :: lb
13701 real(RKC) , intent(in) :: ub
13702 real(RKC) , intent(in) :: abstol
13703 real(RKC) , intent(in) :: reltol
13704 type(GK51_type) , intent(in) :: qrule
13705 real(RKC) , intent(in) , contiguous :: help(:)
13706 real(RKC) , intent(out) :: integral, abserr
13707 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13708 integer(IK) , intent(out) , contiguous :: sindex(:)
13709 integer(IK) , intent(out) :: neval
13710 integer(IK) , intent(out) :: nint
13711 integer(IK) :: err
13712 end function
13713#endif
13714
13715#if RK2_ENABLED
13716 module function QAGP_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13718 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK2
13719#endif
13720 use pm_kind, only: RKC => RK2
13721 procedure(real(RKC)) :: getFunc
13722 real(RKC) , intent(in) :: lb
13723 real(RKC) , intent(in) :: ub
13724 real(RKC) , intent(in) :: abstol
13725 real(RKC) , intent(in) :: reltol
13726 type(GK51_type) , intent(in) :: qrule
13727 real(RKC) , intent(in) , contiguous :: help(:)
13728 real(RKC) , intent(out) :: integral, abserr
13729 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13730 integer(IK) , intent(out) , contiguous :: sindex(:)
13731 integer(IK) , intent(out) :: neval
13732 integer(IK) , intent(out) :: nint
13733 integer(IK) :: err
13734 end function
13735#endif
13736
13737#if RK1_ENABLED
13738 module function QAGP_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13740 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK1
13741#endif
13742 use pm_kind, only: RKC => RK1
13743 procedure(real(RKC)) :: getFunc
13744 real(RKC) , intent(in) :: lb
13745 real(RKC) , intent(in) :: ub
13746 real(RKC) , intent(in) :: abstol
13747 real(RKC) , intent(in) :: reltol
13748 type(GK51_type) , intent(in) :: qrule
13749 real(RKC) , intent(in) , contiguous :: help(:)
13750 real(RKC) , intent(out) :: integral, abserr
13751 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13752 integer(IK) , intent(out) , contiguous :: sindex(:)
13753 integer(IK) , intent(out) :: neval
13754 integer(IK) , intent(out) :: nint
13755 integer(IK) :: err
13756 end function
13757#endif
13758
13759 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13760
13761#if RK5_ENABLED
13762 module function QAGP_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13764 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK5
13765#endif
13766 use pm_kind, only: RKC => RK5
13767 procedure(real(RKC)) :: getFunc
13768 real(RKC) , intent(in) :: lb
13769 type(pinf_type) , intent(in) :: ub
13770 real(RKC) , intent(in) :: abstol
13771 real(RKC) , intent(in) :: reltol
13772 type(GK51_type) , intent(in) :: qrule
13773 real(RKC) , intent(in) , contiguous :: help(:)
13774 real(RKC) , intent(out) :: integral, abserr
13775 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13776 integer(IK) , intent(out) , contiguous :: sindex(:)
13777 integer(IK) , intent(out) :: neval
13778 integer(IK) , intent(out) :: nint
13779 integer(IK) :: err
13780 end function
13781#endif
13782
13783#if RK4_ENABLED
13784 module function QAGP_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13786 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK4
13787#endif
13788 use pm_kind, only: RKC => RK4
13789 procedure(real(RKC)) :: getFunc
13790 real(RKC) , intent(in) :: lb
13791 type(pinf_type) , intent(in) :: ub
13792 real(RKC) , intent(in) :: abstol
13793 real(RKC) , intent(in) :: reltol
13794 type(GK51_type) , intent(in) :: qrule
13795 real(RKC) , intent(in) , contiguous :: help(:)
13796 real(RKC) , intent(out) :: integral, abserr
13797 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13798 integer(IK) , intent(out) , contiguous :: sindex(:)
13799 integer(IK) , intent(out) :: neval
13800 integer(IK) , intent(out) :: nint
13801 integer(IK) :: err
13802 end function
13803#endif
13804
13805#if RK3_ENABLED
13806 module function QAGP_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13808 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK3
13809#endif
13810 use pm_kind, only: RKC => RK3
13811 procedure(real(RKC)) :: getFunc
13812 real(RKC) , intent(in) :: lb
13813 type(pinf_type) , intent(in) :: ub
13814 real(RKC) , intent(in) :: abstol
13815 real(RKC) , intent(in) :: reltol
13816 type(GK51_type) , intent(in) :: qrule
13817 real(RKC) , intent(in) , contiguous :: help(:)
13818 real(RKC) , intent(out) :: integral, abserr
13819 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13820 integer(IK) , intent(out) , contiguous :: sindex(:)
13821 integer(IK) , intent(out) :: neval
13822 integer(IK) , intent(out) :: nint
13823 integer(IK) :: err
13824 end function
13825#endif
13826
13827#if RK2_ENABLED
13828 module function QAGP_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13830 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK2
13831#endif
13832 use pm_kind, only: RKC => RK2
13833 procedure(real(RKC)) :: getFunc
13834 real(RKC) , intent(in) :: lb
13835 type(pinf_type) , intent(in) :: ub
13836 real(RKC) , intent(in) :: abstol
13837 real(RKC) , intent(in) :: reltol
13838 type(GK51_type) , intent(in) :: qrule
13839 real(RKC) , intent(in) , contiguous :: help(:)
13840 real(RKC) , intent(out) :: integral, abserr
13841 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13842 integer(IK) , intent(out) , contiguous :: sindex(:)
13843 integer(IK) , intent(out) :: neval
13844 integer(IK) , intent(out) :: nint
13845 integer(IK) :: err
13846 end function
13847#endif
13848
13849#if RK1_ENABLED
13850 module function QAGP_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13852 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK1
13853#endif
13854 use pm_kind, only: RKC => RK1
13855 procedure(real(RKC)) :: getFunc
13856 real(RKC) , intent(in) :: lb
13857 type(pinf_type) , intent(in) :: ub
13858 real(RKC) , intent(in) :: abstol
13859 real(RKC) , intent(in) :: reltol
13860 type(GK51_type) , intent(in) :: qrule
13861 real(RKC) , intent(in) , contiguous :: help(:)
13862 real(RKC) , intent(out) :: integral, abserr
13863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13864 integer(IK) , intent(out) , contiguous :: sindex(:)
13865 integer(IK) , intent(out) :: neval
13866 integer(IK) , intent(out) :: nint
13867 integer(IK) :: err
13868 end function
13869#endif
13870
13871 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13872
13873#if RK5_ENABLED
13874 module function QAGP_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK5
13877#endif
13878 use pm_kind, only: RKC => RK5
13879 procedure(real(RKC)) :: getFunc
13880 type(ninf_type) , intent(in) :: lb
13881 real(RKC) , intent(in) :: ub
13882 real(RKC) , intent(in) :: abstol
13883 real(RKC) , intent(in) :: reltol
13884 type(GK51_type) , intent(in) :: qrule
13885 real(RKC) , intent(in) , contiguous :: help(:)
13886 real(RKC) , intent(out) :: integral, abserr
13887 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13888 integer(IK) , intent(out) , contiguous :: sindex(:)
13889 integer(IK) , intent(out) :: neval
13890 integer(IK) , intent(out) :: nint
13891 integer(IK) :: err
13892 end function
13893#endif
13894
13895#if RK4_ENABLED
13896 module function QAGP_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13898 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK4
13899#endif
13900 use pm_kind, only: RKC => RK4
13901 procedure(real(RKC)) :: getFunc
13902 type(ninf_type) , intent(in) :: lb
13903 real(RKC) , intent(in) :: ub
13904 real(RKC) , intent(in) :: abstol
13905 real(RKC) , intent(in) :: reltol
13906 type(GK51_type) , intent(in) :: qrule
13907 real(RKC) , intent(in) , contiguous :: help(:)
13908 real(RKC) , intent(out) :: integral, abserr
13909 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13910 integer(IK) , intent(out) , contiguous :: sindex(:)
13911 integer(IK) , intent(out) :: neval
13912 integer(IK) , intent(out) :: nint
13913 integer(IK) :: err
13914 end function
13915#endif
13916
13917#if RK3_ENABLED
13918 module function QAGP_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK3
13921#endif
13922 use pm_kind, only: RKC => RK3
13923 procedure(real(RKC)) :: getFunc
13924 type(ninf_type) , intent(in) :: lb
13925 real(RKC) , intent(in) :: ub
13926 real(RKC) , intent(in) :: abstol
13927 real(RKC) , intent(in) :: reltol
13928 type(GK51_type) , intent(in) :: qrule
13929 real(RKC) , intent(in) , contiguous :: help(:)
13930 real(RKC) , intent(out) :: integral, abserr
13931 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13932 integer(IK) , intent(out) , contiguous :: sindex(:)
13933 integer(IK) , intent(out) :: neval
13934 integer(IK) , intent(out) :: nint
13935 integer(IK) :: err
13936 end function
13937#endif
13938
13939#if RK2_ENABLED
13940 module function QAGP_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13942 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK2
13943#endif
13944 use pm_kind, only: RKC => RK2
13945 procedure(real(RKC)) :: getFunc
13946 type(ninf_type) , intent(in) :: lb
13947 real(RKC) , intent(in) :: ub
13948 real(RKC) , intent(in) :: abstol
13949 real(RKC) , intent(in) :: reltol
13950 type(GK51_type) , intent(in) :: qrule
13951 real(RKC) , intent(in) , contiguous :: help(:)
13952 real(RKC) , intent(out) :: integral, abserr
13953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13954 integer(IK) , intent(out) , contiguous :: sindex(:)
13955 integer(IK) , intent(out) :: neval
13956 integer(IK) , intent(out) :: nint
13957 integer(IK) :: err
13958 end function
13959#endif
13960
13961#if RK1_ENABLED
13962 module function QAGP_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK1
13965#endif
13966 use pm_kind, only: RKC => RK1
13967 procedure(real(RKC)) :: getFunc
13968 type(ninf_type) , intent(in) :: lb
13969 real(RKC) , intent(in) :: ub
13970 real(RKC) , intent(in) :: abstol
13971 real(RKC) , intent(in) :: reltol
13972 type(GK51_type) , intent(in) :: qrule
13973 real(RKC) , intent(in) , contiguous :: help(:)
13974 real(RKC) , intent(out) :: integral, abserr
13975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13976 integer(IK) , intent(out) , contiguous :: sindex(:)
13977 integer(IK) , intent(out) :: neval
13978 integer(IK) , intent(out) :: nint
13979 integer(IK) :: err
13980 end function
13981#endif
13982
13983 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13984
13985#if RK5_ENABLED
13986 module function QAGP_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13988 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK5
13989#endif
13990 use pm_kind, only: RKC => RK5
13991 procedure(real(RKC)) :: getFunc
13992 type(ninf_type) , intent(in) :: lb
13993 type(pinf_type) , intent(in) :: ub
13994 real(RKC) , intent(in) :: abstol
13995 real(RKC) , intent(in) :: reltol
13996 type(GK51_type) , intent(in) :: qrule
13997 real(RKC) , intent(in) , contiguous :: help(:)
13998 real(RKC) , intent(out) :: integral, abserr
13999 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14000 integer(IK) , intent(out) , contiguous :: sindex(:)
14001 integer(IK) , intent(out) :: neval
14002 integer(IK) , intent(out) :: nint
14003 integer(IK) :: err
14004 end function
14005#endif
14006
14007#if RK4_ENABLED
14008 module function QAGP_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14010 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK4
14011#endif
14012 use pm_kind, only: RKC => RK4
14013 procedure(real(RKC)) :: getFunc
14014 type(ninf_type) , intent(in) :: lb
14015 type(pinf_type) , intent(in) :: ub
14016 real(RKC) , intent(in) :: abstol
14017 real(RKC) , intent(in) :: reltol
14018 type(GK51_type) , intent(in) :: qrule
14019 real(RKC) , intent(in) , contiguous :: help(:)
14020 real(RKC) , intent(out) :: integral, abserr
14021 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14022 integer(IK) , intent(out) , contiguous :: sindex(:)
14023 integer(IK) , intent(out) :: neval
14024 integer(IK) , intent(out) :: nint
14025 integer(IK) :: err
14026 end function
14027#endif
14028
14029#if RK3_ENABLED
14030 module function QAGP_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14032 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK3
14033#endif
14034 use pm_kind, only: RKC => RK3
14035 procedure(real(RKC)) :: getFunc
14036 type(ninf_type) , intent(in) :: lb
14037 type(pinf_type) , intent(in) :: ub
14038 real(RKC) , intent(in) :: abstol
14039 real(RKC) , intent(in) :: reltol
14040 type(GK51_type) , intent(in) :: qrule
14041 real(RKC) , intent(in) , contiguous :: help(:)
14042 real(RKC) , intent(out) :: integral, abserr
14043 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14044 integer(IK) , intent(out) , contiguous :: sindex(:)
14045 integer(IK) , intent(out) :: neval
14046 integer(IK) , intent(out) :: nint
14047 integer(IK) :: err
14048 end function
14049#endif
14050
14051#if RK2_ENABLED
14052 module function QAGP_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14054 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK2
14055#endif
14056 use pm_kind, only: RKC => RK2
14057 procedure(real(RKC)) :: getFunc
14058 type(ninf_type) , intent(in) :: lb
14059 type(pinf_type) , intent(in) :: ub
14060 real(RKC) , intent(in) :: abstol
14061 real(RKC) , intent(in) :: reltol
14062 type(GK51_type) , intent(in) :: qrule
14063 real(RKC) , intent(in) , contiguous :: help(:)
14064 real(RKC) , intent(out) :: integral, abserr
14065 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14066 integer(IK) , intent(out) , contiguous :: sindex(:)
14067 integer(IK) , intent(out) :: neval
14068 integer(IK) , intent(out) :: nint
14069 integer(IK) :: err
14070 end function
14071#endif
14072
14073#if RK1_ENABLED
14074 module function QAGP_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14076 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK1
14077#endif
14078 use pm_kind, only: RKC => RK1
14079 procedure(real(RKC)) :: getFunc
14080 type(ninf_type) , intent(in) :: lb
14081 type(pinf_type) , intent(in) :: ub
14082 real(RKC) , intent(in) :: abstol
14083 real(RKC) , intent(in) :: reltol
14084 type(GK51_type) , intent(in) :: qrule
14085 real(RKC) , intent(in) , contiguous :: help(:)
14086 real(RKC) , intent(out) :: integral, abserr
14087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14088 integer(IK) , intent(out) , contiguous :: sindex(:)
14089 integer(IK) , intent(out) :: neval
14090 integer(IK) , intent(out) :: nint
14091 integer(IK) :: err
14092 end function
14093#endif
14094
14095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14096
14097 end interface
14098
14099 ! QAGP_GK61
14100
14101 interface getQuadErr
14102
14103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14104
14105#if RK5_ENABLED
14106 module function QAGP_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14108 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK5
14109#endif
14110 use pm_kind, only: RKC => RK5
14111 procedure(real(RKC)) :: getFunc
14112 real(RKC) , intent(in) :: lb
14113 real(RKC) , intent(in) :: ub
14114 real(RKC) , intent(in) :: abstol
14115 real(RKC) , intent(in) :: reltol
14116 type(GK61_type) , intent(in) :: qrule
14117 real(RKC) , intent(in) , contiguous :: help(:)
14118 real(RKC) , intent(out) :: integral, abserr
14119 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14120 integer(IK) , intent(out) , contiguous :: sindex(:)
14121 integer(IK) , intent(out) :: neval
14122 integer(IK) , intent(out) :: nint
14123 integer(IK) :: err
14124 end function
14125#endif
14126
14127#if RK4_ENABLED
14128 module function QAGP_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14130 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK4
14131#endif
14132 use pm_kind, only: RKC => RK4
14133 procedure(real(RKC)) :: getFunc
14134 real(RKC) , intent(in) :: lb
14135 real(RKC) , intent(in) :: ub
14136 real(RKC) , intent(in) :: abstol
14137 real(RKC) , intent(in) :: reltol
14138 type(GK61_type) , intent(in) :: qrule
14139 real(RKC) , intent(in) , contiguous :: help(:)
14140 real(RKC) , intent(out) :: integral, abserr
14141 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14142 integer(IK) , intent(out) , contiguous :: sindex(:)
14143 integer(IK) , intent(out) :: neval
14144 integer(IK) , intent(out) :: nint
14145 integer(IK) :: err
14146 end function
14147#endif
14148
14149#if RK3_ENABLED
14150 module function QAGP_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14152 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK3
14153#endif
14154 use pm_kind, only: RKC => RK3
14155 procedure(real(RKC)) :: getFunc
14156 real(RKC) , intent(in) :: lb
14157 real(RKC) , intent(in) :: ub
14158 real(RKC) , intent(in) :: abstol
14159 real(RKC) , intent(in) :: reltol
14160 type(GK61_type) , intent(in) :: qrule
14161 real(RKC) , intent(in) , contiguous :: help(:)
14162 real(RKC) , intent(out) :: integral, abserr
14163 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14164 integer(IK) , intent(out) , contiguous :: sindex(:)
14165 integer(IK) , intent(out) :: neval
14166 integer(IK) , intent(out) :: nint
14167 integer(IK) :: err
14168 end function
14169#endif
14170
14171#if RK2_ENABLED
14172 module function QAGP_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14174 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK2
14175#endif
14176 use pm_kind, only: RKC => RK2
14177 procedure(real(RKC)) :: getFunc
14178 real(RKC) , intent(in) :: lb
14179 real(RKC) , intent(in) :: ub
14180 real(RKC) , intent(in) :: abstol
14181 real(RKC) , intent(in) :: reltol
14182 type(GK61_type) , intent(in) :: qrule
14183 real(RKC) , intent(in) , contiguous :: help(:)
14184 real(RKC) , intent(out) :: integral, abserr
14185 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14186 integer(IK) , intent(out) , contiguous :: sindex(:)
14187 integer(IK) , intent(out) :: neval
14188 integer(IK) , intent(out) :: nint
14189 integer(IK) :: err
14190 end function
14191#endif
14192
14193#if RK1_ENABLED
14194 module function QAGP_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14196 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK1
14197#endif
14198 use pm_kind, only: RKC => RK1
14199 procedure(real(RKC)) :: getFunc
14200 real(RKC) , intent(in) :: lb
14201 real(RKC) , intent(in) :: ub
14202 real(RKC) , intent(in) :: abstol
14203 real(RKC) , intent(in) :: reltol
14204 type(GK61_type) , intent(in) :: qrule
14205 real(RKC) , intent(in) , contiguous :: help(:)
14206 real(RKC) , intent(out) :: integral, abserr
14207 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14208 integer(IK) , intent(out) , contiguous :: sindex(:)
14209 integer(IK) , intent(out) :: neval
14210 integer(IK) , intent(out) :: nint
14211 integer(IK) :: err
14212 end function
14213#endif
14214
14215 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14216
14217#if RK5_ENABLED
14218 module function QAGP_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14220 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK5
14221#endif
14222 use pm_kind, only: RKC => RK5
14223 procedure(real(RKC)) :: getFunc
14224 real(RKC) , intent(in) :: lb
14225 type(pinf_type) , intent(in) :: ub
14226 real(RKC) , intent(in) :: abstol
14227 real(RKC) , intent(in) :: reltol
14228 type(GK61_type) , intent(in) :: qrule
14229 real(RKC) , intent(in) , contiguous :: help(:)
14230 real(RKC) , intent(out) :: integral, abserr
14231 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14232 integer(IK) , intent(out) , contiguous :: sindex(:)
14233 integer(IK) , intent(out) :: neval
14234 integer(IK) , intent(out) :: nint
14235 integer(IK) :: err
14236 end function
14237#endif
14238
14239#if RK4_ENABLED
14240 module function QAGP_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14242 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK4
14243#endif
14244 use pm_kind, only: RKC => RK4
14245 procedure(real(RKC)) :: getFunc
14246 real(RKC) , intent(in) :: lb
14247 type(pinf_type) , intent(in) :: ub
14248 real(RKC) , intent(in) :: abstol
14249 real(RKC) , intent(in) :: reltol
14250 type(GK61_type) , intent(in) :: qrule
14251 real(RKC) , intent(in) , contiguous :: help(:)
14252 real(RKC) , intent(out) :: integral, abserr
14253 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14254 integer(IK) , intent(out) , contiguous :: sindex(:)
14255 integer(IK) , intent(out) :: neval
14256 integer(IK) , intent(out) :: nint
14257 integer(IK) :: err
14258 end function
14259#endif
14260
14261#if RK3_ENABLED
14262 module function QAGP_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14264 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK3
14265#endif
14266 use pm_kind, only: RKC => RK3
14267 procedure(real(RKC)) :: getFunc
14268 real(RKC) , intent(in) :: lb
14269 type(pinf_type) , intent(in) :: ub
14270 real(RKC) , intent(in) :: abstol
14271 real(RKC) , intent(in) :: reltol
14272 type(GK61_type) , intent(in) :: qrule
14273 real(RKC) , intent(in) , contiguous :: help(:)
14274 real(RKC) , intent(out) :: integral, abserr
14275 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14276 integer(IK) , intent(out) , contiguous :: sindex(:)
14277 integer(IK) , intent(out) :: neval
14278 integer(IK) , intent(out) :: nint
14279 integer(IK) :: err
14280 end function
14281#endif
14282
14283#if RK2_ENABLED
14284 module function QAGP_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14286 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK2
14287#endif
14288 use pm_kind, only: RKC => RK2
14289 procedure(real(RKC)) :: getFunc
14290 real(RKC) , intent(in) :: lb
14291 type(pinf_type) , intent(in) :: ub
14292 real(RKC) , intent(in) :: abstol
14293 real(RKC) , intent(in) :: reltol
14294 type(GK61_type) , intent(in) :: qrule
14295 real(RKC) , intent(in) , contiguous :: help(:)
14296 real(RKC) , intent(out) :: integral, abserr
14297 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14298 integer(IK) , intent(out) , contiguous :: sindex(:)
14299 integer(IK) , intent(out) :: neval
14300 integer(IK) , intent(out) :: nint
14301 integer(IK) :: err
14302 end function
14303#endif
14304
14305#if RK1_ENABLED
14306 module function QAGP_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14308 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK1
14309#endif
14310 use pm_kind, only: RKC => RK1
14311 procedure(real(RKC)) :: getFunc
14312 real(RKC) , intent(in) :: lb
14313 type(pinf_type) , intent(in) :: ub
14314 real(RKC) , intent(in) :: abstol
14315 real(RKC) , intent(in) :: reltol
14316 type(GK61_type) , intent(in) :: qrule
14317 real(RKC) , intent(in) , contiguous :: help(:)
14318 real(RKC) , intent(out) :: integral, abserr
14319 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14320 integer(IK) , intent(out) , contiguous :: sindex(:)
14321 integer(IK) , intent(out) :: neval
14322 integer(IK) , intent(out) :: nint
14323 integer(IK) :: err
14324 end function
14325#endif
14326
14327 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14328
14329#if RK5_ENABLED
14330 module function QAGP_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14332 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK5
14333#endif
14334 use pm_kind, only: RKC => RK5
14335 procedure(real(RKC)) :: getFunc
14336 type(ninf_type) , intent(in) :: lb
14337 real(RKC) , intent(in) :: ub
14338 real(RKC) , intent(in) :: abstol
14339 real(RKC) , intent(in) :: reltol
14340 type(GK61_type) , intent(in) :: qrule
14341 real(RKC) , intent(in) , contiguous :: help(:)
14342 real(RKC) , intent(out) :: integral, abserr
14343 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14344 integer(IK) , intent(out) , contiguous :: sindex(:)
14345 integer(IK) , intent(out) :: neval
14346 integer(IK) , intent(out) :: nint
14347 integer(IK) :: err
14348 end function
14349#endif
14350
14351#if RK4_ENABLED
14352 module function QAGP_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14354 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK4
14355#endif
14356 use pm_kind, only: RKC => RK4
14357 procedure(real(RKC)) :: getFunc
14358 type(ninf_type) , intent(in) :: lb
14359 real(RKC) , intent(in) :: ub
14360 real(RKC) , intent(in) :: abstol
14361 real(RKC) , intent(in) :: reltol
14362 type(GK61_type) , intent(in) :: qrule
14363 real(RKC) , intent(in) , contiguous :: help(:)
14364 real(RKC) , intent(out) :: integral, abserr
14365 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14366 integer(IK) , intent(out) , contiguous :: sindex(:)
14367 integer(IK) , intent(out) :: neval
14368 integer(IK) , intent(out) :: nint
14369 integer(IK) :: err
14370 end function
14371#endif
14372
14373#if RK3_ENABLED
14374 module function QAGP_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14376 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK3
14377#endif
14378 use pm_kind, only: RKC => RK3
14379 procedure(real(RKC)) :: getFunc
14380 type(ninf_type) , intent(in) :: lb
14381 real(RKC) , intent(in) :: ub
14382 real(RKC) , intent(in) :: abstol
14383 real(RKC) , intent(in) :: reltol
14384 type(GK61_type) , intent(in) :: qrule
14385 real(RKC) , intent(in) , contiguous :: help(:)
14386 real(RKC) , intent(out) :: integral, abserr
14387 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14388 integer(IK) , intent(out) , contiguous :: sindex(:)
14389 integer(IK) , intent(out) :: neval
14390 integer(IK) , intent(out) :: nint
14391 integer(IK) :: err
14392 end function
14393#endif
14394
14395#if RK2_ENABLED
14396 module function QAGP_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14398 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK2
14399#endif
14400 use pm_kind, only: RKC => RK2
14401 procedure(real(RKC)) :: getFunc
14402 type(ninf_type) , intent(in) :: lb
14403 real(RKC) , intent(in) :: ub
14404 real(RKC) , intent(in) :: abstol
14405 real(RKC) , intent(in) :: reltol
14406 type(GK61_type) , intent(in) :: qrule
14407 real(RKC) , intent(in) , contiguous :: help(:)
14408 real(RKC) , intent(out) :: integral, abserr
14409 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14410 integer(IK) , intent(out) , contiguous :: sindex(:)
14411 integer(IK) , intent(out) :: neval
14412 integer(IK) , intent(out) :: nint
14413 integer(IK) :: err
14414 end function
14415#endif
14416
14417#if RK1_ENABLED
14418 module function QAGP_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14420 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK1
14421#endif
14422 use pm_kind, only: RKC => RK1
14423 procedure(real(RKC)) :: getFunc
14424 type(ninf_type) , intent(in) :: lb
14425 real(RKC) , intent(in) :: ub
14426 real(RKC) , intent(in) :: abstol
14427 real(RKC) , intent(in) :: reltol
14428 type(GK61_type) , intent(in) :: qrule
14429 real(RKC) , intent(in) , contiguous :: help(:)
14430 real(RKC) , intent(out) :: integral, abserr
14431 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14432 integer(IK) , intent(out) , contiguous :: sindex(:)
14433 integer(IK) , intent(out) :: neval
14434 integer(IK) , intent(out) :: nint
14435 integer(IK) :: err
14436 end function
14437#endif
14438
14439 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14440
14441#if RK5_ENABLED
14442 module function QAGP_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14444 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK5
14445#endif
14446 use pm_kind, only: RKC => RK5
14447 procedure(real(RKC)) :: getFunc
14448 type(ninf_type) , intent(in) :: lb
14449 type(pinf_type) , intent(in) :: ub
14450 real(RKC) , intent(in) :: abstol
14451 real(RKC) , intent(in) :: reltol
14452 type(GK61_type) , intent(in) :: qrule
14453 real(RKC) , intent(in) , contiguous :: help(:)
14454 real(RKC) , intent(out) :: integral, abserr
14455 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14456 integer(IK) , intent(out) , contiguous :: sindex(:)
14457 integer(IK) , intent(out) :: neval
14458 integer(IK) , intent(out) :: nint
14459 integer(IK) :: err
14460 end function
14461#endif
14462
14463#if RK4_ENABLED
14464 module function QAGP_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14466 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK4
14467#endif
14468 use pm_kind, only: RKC => RK4
14469 procedure(real(RKC)) :: getFunc
14470 type(ninf_type) , intent(in) :: lb
14471 type(pinf_type) , intent(in) :: ub
14472 real(RKC) , intent(in) :: abstol
14473 real(RKC) , intent(in) :: reltol
14474 type(GK61_type) , intent(in) :: qrule
14475 real(RKC) , intent(in) , contiguous :: help(:)
14476 real(RKC) , intent(out) :: integral, abserr
14477 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14478 integer(IK) , intent(out) , contiguous :: sindex(:)
14479 integer(IK) , intent(out) :: neval
14480 integer(IK) , intent(out) :: nint
14481 integer(IK) :: err
14482 end function
14483#endif
14484
14485#if RK3_ENABLED
14486 module function QAGP_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14488 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK3
14489#endif
14490 use pm_kind, only: RKC => RK3
14491 procedure(real(RKC)) :: getFunc
14492 type(ninf_type) , intent(in) :: lb
14493 type(pinf_type) , intent(in) :: ub
14494 real(RKC) , intent(in) :: abstol
14495 real(RKC) , intent(in) :: reltol
14496 type(GK61_type) , intent(in) :: qrule
14497 real(RKC) , intent(in) , contiguous :: help(:)
14498 real(RKC) , intent(out) :: integral, abserr
14499 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14500 integer(IK) , intent(out) , contiguous :: sindex(:)
14501 integer(IK) , intent(out) :: neval
14502 integer(IK) , intent(out) :: nint
14503 integer(IK) :: err
14504 end function
14505#endif
14506
14507#if RK2_ENABLED
14508 module function QAGP_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14510 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK2
14511#endif
14512 use pm_kind, only: RKC => RK2
14513 procedure(real(RKC)) :: getFunc
14514 type(ninf_type) , intent(in) :: lb
14515 type(pinf_type) , intent(in) :: ub
14516 real(RKC) , intent(in) :: abstol
14517 real(RKC) , intent(in) :: reltol
14518 type(GK61_type) , intent(in) :: qrule
14519 real(RKC) , intent(in) , contiguous :: help(:)
14520 real(RKC) , intent(out) :: integral, abserr
14521 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14522 integer(IK) , intent(out) , contiguous :: sindex(:)
14523 integer(IK) , intent(out) :: neval
14524 integer(IK) , intent(out) :: nint
14525 integer(IK) :: err
14526 end function
14527#endif
14528
14529#if RK1_ENABLED
14530 module function QAGP_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14532 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK1
14533#endif
14534 use pm_kind, only: RKC => RK1
14535 procedure(real(RKC)) :: getFunc
14536 type(ninf_type) , intent(in) :: lb
14537 type(pinf_type) , intent(in) :: ub
14538 real(RKC) , intent(in) :: abstol
14539 real(RKC) , intent(in) :: reltol
14540 type(GK61_type) , intent(in) :: qrule
14541 real(RKC) , intent(in) , contiguous :: help(:)
14542 real(RKC) , intent(out) :: integral, abserr
14543 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14544 integer(IK) , intent(out) , contiguous :: sindex(:)
14545 integer(IK) , intent(out) :: neval
14546 integer(IK) , intent(out) :: nint
14547 integer(IK) :: err
14548 end function
14549#endif
14550
14551 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14552
14553 end interface
14554
14555 ! QAGP_GKXX
14556
14557 interface getQuadErr
14558
14559 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14560
14561#if RK5_ENABLED
14562 module function QAGP_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14564 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK5
14565#endif
14566 use pm_kind, only: RKC => RK5
14567 procedure(real(RKC)) :: getFunc
14568 real(RKC) , intent(in) :: lb
14569 real(RKC) , intent(in) :: ub
14570 real(RKC) , intent(in) :: abstol
14571 real(RKC) , intent(in) :: reltol
14572 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14573 real(RKC) , intent(in) , contiguous :: help(:)
14574 real(RKC) , intent(out) :: integral, abserr
14575 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14576 integer(IK) , intent(out) , contiguous :: sindex(:)
14577 integer(IK) , intent(out) :: neval
14578 integer(IK) , intent(out) :: nint
14579 integer(IK) :: err
14580 end function
14581#endif
14582
14583#if RK4_ENABLED
14584 module function QAGP_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14586 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK4
14587#endif
14588 use pm_kind, only: RKC => RK4
14589 procedure(real(RKC)) :: getFunc
14590 real(RKC) , intent(in) :: lb
14591 real(RKC) , intent(in) :: ub
14592 real(RKC) , intent(in) :: abstol
14593 real(RKC) , intent(in) :: reltol
14594 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14595 real(RKC) , intent(in) , contiguous :: help(:)
14596 real(RKC) , intent(out) :: integral, abserr
14597 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14598 integer(IK) , intent(out) , contiguous :: sindex(:)
14599 integer(IK) , intent(out) :: neval
14600 integer(IK) , intent(out) :: nint
14601 integer(IK) :: err
14602 end function
14603#endif
14604
14605#if RK3_ENABLED
14606 module function QAGP_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14608 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK3
14609#endif
14610 use pm_kind, only: RKC => RK3
14611 procedure(real(RKC)) :: getFunc
14612 real(RKC) , intent(in) :: lb
14613 real(RKC) , intent(in) :: ub
14614 real(RKC) , intent(in) :: abstol
14615 real(RKC) , intent(in) :: reltol
14616 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14617 real(RKC) , intent(in) , contiguous :: help(:)
14618 real(RKC) , intent(out) :: integral, abserr
14619 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14620 integer(IK) , intent(out) , contiguous :: sindex(:)
14621 integer(IK) , intent(out) :: neval
14622 integer(IK) , intent(out) :: nint
14623 integer(IK) :: err
14624 end function
14625#endif
14626
14627#if RK2_ENABLED
14628 module function QAGP_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14630 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK2
14631#endif
14632 use pm_kind, only: RKC => RK2
14633 procedure(real(RKC)) :: getFunc
14634 real(RKC) , intent(in) :: lb
14635 real(RKC) , intent(in) :: ub
14636 real(RKC) , intent(in) :: abstol
14637 real(RKC) , intent(in) :: reltol
14638 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14639 real(RKC) , intent(in) , contiguous :: help(:)
14640 real(RKC) , intent(out) :: integral, abserr
14641 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14642 integer(IK) , intent(out) , contiguous :: sindex(:)
14643 integer(IK) , intent(out) :: neval
14644 integer(IK) , intent(out) :: nint
14645 integer(IK) :: err
14646 end function
14647#endif
14648
14649#if RK1_ENABLED
14650 module function QAGP_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14652 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK1
14653#endif
14654 use pm_kind, only: RKC => RK1
14655 procedure(real(RKC)) :: getFunc
14656 real(RKC) , intent(in) :: lb
14657 real(RKC) , intent(in) :: ub
14658 real(RKC) , intent(in) :: abstol
14659 real(RKC) , intent(in) :: reltol
14660 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14661 real(RKC) , intent(in) , contiguous :: help(:)
14662 real(RKC) , intent(out) :: integral, abserr
14663 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14664 integer(IK) , intent(out) , contiguous :: sindex(:)
14665 integer(IK) , intent(out) :: neval
14666 integer(IK) , intent(out) :: nint
14667 integer(IK) :: err
14668 end function
14669#endif
14670
14671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14672
14673#if RK5_ENABLED
14674 module function QAGP_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14676 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK5
14677#endif
14678 use pm_kind, only: RKC => RK5
14679 procedure(real(RKC)) :: getFunc
14680 real(RKC) , intent(in) :: lb
14681 type(pinf_type) , intent(in) :: ub
14682 real(RKC) , intent(in) :: abstol
14683 real(RKC) , intent(in) :: reltol
14684 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14685 real(RKC) , intent(in) , contiguous :: help(:)
14686 real(RKC) , intent(out) :: integral, abserr
14687 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14688 integer(IK) , intent(out) , contiguous :: sindex(:)
14689 integer(IK) , intent(out) :: neval
14690 integer(IK) , intent(out) :: nint
14691 integer(IK) :: err
14692 end function
14693#endif
14694
14695#if RK4_ENABLED
14696 module function QAGP_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14698 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK4
14699#endif
14700 use pm_kind, only: RKC => RK4
14701 procedure(real(RKC)) :: getFunc
14702 real(RKC) , intent(in) :: lb
14703 type(pinf_type) , intent(in) :: ub
14704 real(RKC) , intent(in) :: abstol
14705 real(RKC) , intent(in) :: reltol
14706 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14707 real(RKC) , intent(in) , contiguous :: help(:)
14708 real(RKC) , intent(out) :: integral, abserr
14709 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14710 integer(IK) , intent(out) , contiguous :: sindex(:)
14711 integer(IK) , intent(out) :: neval
14712 integer(IK) , intent(out) :: nint
14713 integer(IK) :: err
14714 end function
14715#endif
14716
14717#if RK3_ENABLED
14718 module function QAGP_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14720 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK3
14721#endif
14722 use pm_kind, only: RKC => RK3
14723 procedure(real(RKC)) :: getFunc
14724 real(RKC) , intent(in) :: lb
14725 type(pinf_type) , intent(in) :: ub
14726 real(RKC) , intent(in) :: abstol
14727 real(RKC) , intent(in) :: reltol
14728 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14729 real(RKC) , intent(in) , contiguous :: help(:)
14730 real(RKC) , intent(out) :: integral, abserr
14731 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14732 integer(IK) , intent(out) , contiguous :: sindex(:)
14733 integer(IK) , intent(out) :: neval
14734 integer(IK) , intent(out) :: nint
14735 integer(IK) :: err
14736 end function
14737#endif
14738
14739#if RK2_ENABLED
14740 module function QAGP_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14742 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK2
14743#endif
14744 use pm_kind, only: RKC => RK2
14745 procedure(real(RKC)) :: getFunc
14746 real(RKC) , intent(in) :: lb
14747 type(pinf_type) , intent(in) :: ub
14748 real(RKC) , intent(in) :: abstol
14749 real(RKC) , intent(in) :: reltol
14750 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14751 real(RKC) , intent(in) , contiguous :: help(:)
14752 real(RKC) , intent(out) :: integral, abserr
14753 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14754 integer(IK) , intent(out) , contiguous :: sindex(:)
14755 integer(IK) , intent(out) :: neval
14756 integer(IK) , intent(out) :: nint
14757 integer(IK) :: err
14758 end function
14759#endif
14760
14761#if RK1_ENABLED
14762 module function QAGP_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14764 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK1
14765#endif
14766 use pm_kind, only: RKC => RK1
14767 procedure(real(RKC)) :: getFunc
14768 real(RKC) , intent(in) :: lb
14769 type(pinf_type) , intent(in) :: ub
14770 real(RKC) , intent(in) :: abstol
14771 real(RKC) , intent(in) :: reltol
14772 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14773 real(RKC) , intent(in) , contiguous :: help(:)
14774 real(RKC) , intent(out) :: integral, abserr
14775 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14776 integer(IK) , intent(out) , contiguous :: sindex(:)
14777 integer(IK) , intent(out) :: neval
14778 integer(IK) , intent(out) :: nint
14779 integer(IK) :: err
14780 end function
14781#endif
14782
14783 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14784
14785#if RK5_ENABLED
14786 module function QAGP_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14788 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK5
14789#endif
14790 use pm_kind, only: RKC => RK5
14791 procedure(real(RKC)) :: getFunc
14792 type(ninf_type) , intent(in) :: lb
14793 real(RKC) , intent(in) :: ub
14794 real(RKC) , intent(in) :: abstol
14795 real(RKC) , intent(in) :: reltol
14796 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14797 real(RKC) , intent(in) , contiguous :: help(:)
14798 real(RKC) , intent(out) :: integral, abserr
14799 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14800 integer(IK) , intent(out) , contiguous :: sindex(:)
14801 integer(IK) , intent(out) :: neval
14802 integer(IK) , intent(out) :: nint
14803 integer(IK) :: err
14804 end function
14805#endif
14806
14807#if RK4_ENABLED
14808 module function QAGP_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14810 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK4
14811#endif
14812 use pm_kind, only: RKC => RK4
14813 procedure(real(RKC)) :: getFunc
14814 type(ninf_type) , intent(in) :: lb
14815 real(RKC) , intent(in) :: ub
14816 real(RKC) , intent(in) :: abstol
14817 real(RKC) , intent(in) :: reltol
14818 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14819 real(RKC) , intent(in) , contiguous :: help(:)
14820 real(RKC) , intent(out) :: integral, abserr
14821 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14822 integer(IK) , intent(out) , contiguous :: sindex(:)
14823 integer(IK) , intent(out) :: neval
14824 integer(IK) , intent(out) :: nint
14825 integer(IK) :: err
14826 end function
14827#endif
14828
14829#if RK3_ENABLED
14830 module function QAGP_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14832 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK3
14833#endif
14834 use pm_kind, only: RKC => RK3
14835 procedure(real(RKC)) :: getFunc
14836 type(ninf_type) , intent(in) :: lb
14837 real(RKC) , intent(in) :: ub
14838 real(RKC) , intent(in) :: abstol
14839 real(RKC) , intent(in) :: reltol
14840 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14841 real(RKC) , intent(in) , contiguous :: help(:)
14842 real(RKC) , intent(out) :: integral, abserr
14843 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14844 integer(IK) , intent(out) , contiguous :: sindex(:)
14845 integer(IK) , intent(out) :: neval
14846 integer(IK) , intent(out) :: nint
14847 integer(IK) :: err
14848 end function
14849#endif
14850
14851#if RK2_ENABLED
14852 module function QAGP_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14854 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK2
14855#endif
14856 use pm_kind, only: RKC => RK2
14857 procedure(real(RKC)) :: getFunc
14858 type(ninf_type) , intent(in) :: lb
14859 real(RKC) , intent(in) :: ub
14860 real(RKC) , intent(in) :: abstol
14861 real(RKC) , intent(in) :: reltol
14862 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14863 real(RKC) , intent(in) , contiguous :: help(:)
14864 real(RKC) , intent(out) :: integral, abserr
14865 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14866 integer(IK) , intent(out) , contiguous :: sindex(:)
14867 integer(IK) , intent(out) :: neval
14868 integer(IK) , intent(out) :: nint
14869 integer(IK) :: err
14870 end function
14871#endif
14872
14873#if RK1_ENABLED
14874 module function QAGP_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK1
14877#endif
14878 use pm_kind, only: RKC => RK1
14879 procedure(real(RKC)) :: getFunc
14880 type(ninf_type) , intent(in) :: lb
14881 real(RKC) , intent(in) :: ub
14882 real(RKC) , intent(in) :: abstol
14883 real(RKC) , intent(in) :: reltol
14884 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14885 real(RKC) , intent(in) , contiguous :: help(:)
14886 real(RKC) , intent(out) :: integral, abserr
14887 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14888 integer(IK) , intent(out) , contiguous :: sindex(:)
14889 integer(IK) , intent(out) :: neval
14890 integer(IK) , intent(out) :: nint
14891 integer(IK) :: err
14892 end function
14893#endif
14894
14895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14896
14897#if RK5_ENABLED
14898 module function QAGP_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14900 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK5
14901#endif
14902 use pm_kind, only: RKC => RK5
14903 procedure(real(RKC)) :: getFunc
14904 type(ninf_type) , intent(in) :: lb
14905 type(pinf_type) , intent(in) :: ub
14906 real(RKC) , intent(in) :: abstol
14907 real(RKC) , intent(in) :: reltol
14908 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14909 real(RKC) , intent(in) , contiguous :: help(:)
14910 real(RKC) , intent(out) :: integral, abserr
14911 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14912 integer(IK) , intent(out) , contiguous :: sindex(:)
14913 integer(IK) , intent(out) :: neval
14914 integer(IK) , intent(out) :: nint
14915 integer(IK) :: err
14916 end function
14917#endif
14918
14919#if RK4_ENABLED
14920 module function QAGP_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK4
14923#endif
14924 use pm_kind, only: RKC => RK4
14925 procedure(real(RKC)) :: getFunc
14926 type(ninf_type) , intent(in) :: lb
14927 type(pinf_type) , intent(in) :: ub
14928 real(RKC) , intent(in) :: abstol
14929 real(RKC) , intent(in) :: reltol
14930 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14931 real(RKC) , intent(in) , contiguous :: help(:)
14932 real(RKC) , intent(out) :: integral, abserr
14933 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14934 integer(IK) , intent(out) , contiguous :: sindex(:)
14935 integer(IK) , intent(out) :: neval
14936 integer(IK) , intent(out) :: nint
14937 integer(IK) :: err
14938 end function
14939#endif
14940
14941#if RK3_ENABLED
14942 module function QAGP_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14944 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK3
14945#endif
14946 use pm_kind, only: RKC => RK3
14947 procedure(real(RKC)) :: getFunc
14948 type(ninf_type) , intent(in) :: lb
14949 type(pinf_type) , intent(in) :: ub
14950 real(RKC) , intent(in) :: abstol
14951 real(RKC) , intent(in) :: reltol
14952 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14953 real(RKC) , intent(in) , contiguous :: help(:)
14954 real(RKC) , intent(out) :: integral, abserr
14955 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14956 integer(IK) , intent(out) , contiguous :: sindex(:)
14957 integer(IK) , intent(out) :: neval
14958 integer(IK) , intent(out) :: nint
14959 integer(IK) :: err
14960 end function
14961#endif
14962
14963#if RK2_ENABLED
14964 module function QAGP_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14966 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK2
14967#endif
14968 use pm_kind, only: RKC => RK2
14969 procedure(real(RKC)) :: getFunc
14970 type(ninf_type) , intent(in) :: lb
14971 type(pinf_type) , intent(in) :: ub
14972 real(RKC) , intent(in) :: abstol
14973 real(RKC) , intent(in) :: reltol
14974 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14975 real(RKC) , intent(in) , contiguous :: help(:)
14976 real(RKC) , intent(out) :: integral, abserr
14977 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14978 integer(IK) , intent(out) , contiguous :: sindex(:)
14979 integer(IK) , intent(out) :: neval
14980 integer(IK) , intent(out) :: nint
14981 integer(IK) :: err
14982 end function
14983#endif
14984
14985#if RK1_ENABLED
14986 module function QAGP_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14988 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK1
14989#endif
14990 use pm_kind, only: RKC => RK1
14991 procedure(real(RKC)) :: getFunc
14992 type(ninf_type) , intent(in) :: lb
14993 type(pinf_type) , intent(in) :: ub
14994 real(RKC) , intent(in) :: abstol
14995 real(RKC) , intent(in) :: reltol
14996 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14997 real(RKC) , intent(in) , contiguous :: help(:)
14998 real(RKC) , intent(out) :: integral, abserr
14999 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15000 integer(IK) , intent(out) , contiguous :: sindex(:)
15001 integer(IK) , intent(out) :: neval
15002 integer(IK) , intent(out) :: nint
15003 integer(IK) :: err
15004 end function
15005#endif
15006
15007 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15008
15009 end interface
15010
15011!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15012
15013 ! QAWC FF
15014
15015 interface getQuadErr
15016
15017 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15018
15019#if RK5_ENABLED
15020 module function QAWC_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15022 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK5
15023#endif
15024 use pm_kind, only: RKC => RK5
15025 procedure(real(RKC)) :: getFunc
15026 real(RKC) , intent(in) :: lb
15027 real(RKC) , intent(in) :: ub
15028 real(RKC) , intent(in) :: abstol
15029 real(RKC) , intent(in) :: reltol
15030 type(GK15_type) , intent(in) :: qrule
15031 type(wcauchy_type) , intent(in) :: help
15032 real(RKC) , intent(out) :: integral, abserr
15033 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15034 integer(IK) , intent(out) , contiguous :: sindex(:)
15035 integer(IK) , intent(out) :: neval
15036 integer(IK) , intent(out) :: nint
15037 integer(IK) :: err
15038 end function
15039#endif
15040
15041#if RK4_ENABLED
15042 module function QAWC_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15044 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK4
15045#endif
15046 use pm_kind, only: RKC => RK4
15047 procedure(real(RKC)) :: getFunc
15048 real(RKC) , intent(in) :: lb
15049 real(RKC) , intent(in) :: ub
15050 real(RKC) , intent(in) :: abstol
15051 real(RKC) , intent(in) :: reltol
15052 type(GK15_type) , intent(in) :: qrule
15053 type(wcauchy_type) , intent(in) :: help
15054 real(RKC) , intent(out) :: integral, abserr
15055 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15056 integer(IK) , intent(out) , contiguous :: sindex(:)
15057 integer(IK) , intent(out) :: neval
15058 integer(IK) , intent(out) :: nint
15059 integer(IK) :: err
15060 end function
15061#endif
15062
15063#if RK3_ENABLED
15064 module function QAWC_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15066 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK3
15067#endif
15068 use pm_kind, only: RKC => RK3
15069 procedure(real(RKC)) :: getFunc
15070 real(RKC) , intent(in) :: lb
15071 real(RKC) , intent(in) :: ub
15072 real(RKC) , intent(in) :: abstol
15073 real(RKC) , intent(in) :: reltol
15074 type(GK15_type) , intent(in) :: qrule
15075 type(wcauchy_type) , intent(in) :: help
15076 real(RKC) , intent(out) :: integral, abserr
15077 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15078 integer(IK) , intent(out) , contiguous :: sindex(:)
15079 integer(IK) , intent(out) :: neval
15080 integer(IK) , intent(out) :: nint
15081 integer(IK) :: err
15082 end function
15083#endif
15084
15085#if RK2_ENABLED
15086 module function QAWC_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15088 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK2
15089#endif
15090 use pm_kind, only: RKC => RK2
15091 procedure(real(RKC)) :: getFunc
15092 real(RKC) , intent(in) :: lb
15093 real(RKC) , intent(in) :: ub
15094 real(RKC) , intent(in) :: abstol
15095 real(RKC) , intent(in) :: reltol
15096 type(GK15_type) , intent(in) :: qrule
15097 type(wcauchy_type) , intent(in) :: help
15098 real(RKC) , intent(out) :: integral, abserr
15099 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15100 integer(IK) , intent(out) , contiguous :: sindex(:)
15101 integer(IK) , intent(out) :: neval
15102 integer(IK) , intent(out) :: nint
15103 integer(IK) :: err
15104 end function
15105#endif
15106
15107#if RK1_ENABLED
15108 module function QAWC_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15110 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK1
15111#endif
15112 use pm_kind, only: RKC => RK1
15113 procedure(real(RKC)) :: getFunc
15114 real(RKC) , intent(in) :: lb
15115 real(RKC) , intent(in) :: ub
15116 real(RKC) , intent(in) :: abstol
15117 real(RKC) , intent(in) :: reltol
15118 type(GK15_type) , intent(in) :: qrule
15119 type(wcauchy_type) , intent(in) :: help
15120 real(RKC) , intent(out) :: integral, abserr
15121 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15122 integer(IK) , intent(out) , contiguous :: sindex(:)
15123 integer(IK) , intent(out) :: neval
15124 integer(IK) , intent(out) :: nint
15125 integer(IK) :: err
15126 end function
15127#endif
15128
15129 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15130
15131#if RK5_ENABLED
15132 module function QAWC_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15134 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK5
15135#endif
15136 use pm_kind, only: RKC => RK5
15137 procedure(real(RKC)) :: getFunc
15138 real(RKC) , intent(in) :: lb
15139 real(RKC) , intent(in) :: ub
15140 real(RKC) , intent(in) :: abstol
15141 real(RKC) , intent(in) :: reltol
15142 type(GK21_type) , intent(in) :: qrule
15143 type(wcauchy_type) , intent(in) :: help
15144 real(RKC) , intent(out) :: integral, abserr
15145 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15146 integer(IK) , intent(out) , contiguous :: sindex(:)
15147 integer(IK) , intent(out) :: neval
15148 integer(IK) , intent(out) :: nint
15149 integer(IK) :: err
15150 end function
15151#endif
15152
15153#if RK4_ENABLED
15154 module function QAWC_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15156 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK4
15157#endif
15158 use pm_kind, only: RKC => RK4
15159 procedure(real(RKC)) :: getFunc
15160 real(RKC) , intent(in) :: lb
15161 real(RKC) , intent(in) :: ub
15162 real(RKC) , intent(in) :: abstol
15163 real(RKC) , intent(in) :: reltol
15164 type(GK21_type) , intent(in) :: qrule
15165 type(wcauchy_type) , intent(in) :: help
15166 real(RKC) , intent(out) :: integral, abserr
15167 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15168 integer(IK) , intent(out) , contiguous :: sindex(:)
15169 integer(IK) , intent(out) :: neval
15170 integer(IK) , intent(out) :: nint
15171 integer(IK) :: err
15172 end function
15173#endif
15174
15175#if RK3_ENABLED
15176 module function QAWC_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15178 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK3
15179#endif
15180 use pm_kind, only: RKC => RK3
15181 procedure(real(RKC)) :: getFunc
15182 real(RKC) , intent(in) :: lb
15183 real(RKC) , intent(in) :: ub
15184 real(RKC) , intent(in) :: abstol
15185 real(RKC) , intent(in) :: reltol
15186 type(GK21_type) , intent(in) :: qrule
15187 type(wcauchy_type) , intent(in) :: help
15188 real(RKC) , intent(out) :: integral, abserr
15189 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15190 integer(IK) , intent(out) , contiguous :: sindex(:)
15191 integer(IK) , intent(out) :: neval
15192 integer(IK) , intent(out) :: nint
15193 integer(IK) :: err
15194 end function
15195#endif
15196
15197#if RK2_ENABLED
15198 module function QAWC_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15200 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK2
15201#endif
15202 use pm_kind, only: RKC => RK2
15203 procedure(real(RKC)) :: getFunc
15204 real(RKC) , intent(in) :: lb
15205 real(RKC) , intent(in) :: ub
15206 real(RKC) , intent(in) :: abstol
15207 real(RKC) , intent(in) :: reltol
15208 type(GK21_type) , intent(in) :: qrule
15209 type(wcauchy_type) , intent(in) :: help
15210 real(RKC) , intent(out) :: integral, abserr
15211 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15212 integer(IK) , intent(out) , contiguous :: sindex(:)
15213 integer(IK) , intent(out) :: neval
15214 integer(IK) , intent(out) :: nint
15215 integer(IK) :: err
15216 end function
15217#endif
15218
15219#if RK1_ENABLED
15220 module function QAWC_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15222 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK1
15223#endif
15224 use pm_kind, only: RKC => RK1
15225 procedure(real(RKC)) :: getFunc
15226 real(RKC) , intent(in) :: lb
15227 real(RKC) , intent(in) :: ub
15228 real(RKC) , intent(in) :: abstol
15229 real(RKC) , intent(in) :: reltol
15230 type(GK21_type) , intent(in) :: qrule
15231 type(wcauchy_type) , intent(in) :: help
15232 real(RKC) , intent(out) :: integral, abserr
15233 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15234 integer(IK) , intent(out) , contiguous :: sindex(:)
15235 integer(IK) , intent(out) :: neval
15236 integer(IK) , intent(out) :: nint
15237 integer(IK) :: err
15238 end function
15239#endif
15240
15241 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15242
15243#if RK5_ENABLED
15244 module function QAWC_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15246 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK5
15247#endif
15248 use pm_kind, only: RKC => RK5
15249 procedure(real(RKC)) :: getFunc
15250 real(RKC) , intent(in) :: lb
15251 real(RKC) , intent(in) :: ub
15252 real(RKC) , intent(in) :: abstol
15253 real(RKC) , intent(in) :: reltol
15254 type(GK31_type) , intent(in) :: qrule
15255 type(wcauchy_type) , intent(in) :: help
15256 real(RKC) , intent(out) :: integral, abserr
15257 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15258 integer(IK) , intent(out) , contiguous :: sindex(:)
15259 integer(IK) , intent(out) :: neval
15260 integer(IK) , intent(out) :: nint
15261 integer(IK) :: err
15262 end function
15263#endif
15264
15265#if RK4_ENABLED
15266 module function QAWC_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15268 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK4
15269#endif
15270 use pm_kind, only: RKC => RK4
15271 procedure(real(RKC)) :: getFunc
15272 real(RKC) , intent(in) :: lb
15273 real(RKC) , intent(in) :: ub
15274 real(RKC) , intent(in) :: abstol
15275 real(RKC) , intent(in) :: reltol
15276 type(GK31_type) , intent(in) :: qrule
15277 type(wcauchy_type) , intent(in) :: help
15278 real(RKC) , intent(out) :: integral, abserr
15279 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15280 integer(IK) , intent(out) , contiguous :: sindex(:)
15281 integer(IK) , intent(out) :: neval
15282 integer(IK) , intent(out) :: nint
15283 integer(IK) :: err
15284 end function
15285#endif
15286
15287#if RK3_ENABLED
15288 module function QAWC_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15290 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK3
15291#endif
15292 use pm_kind, only: RKC => RK3
15293 procedure(real(RKC)) :: getFunc
15294 real(RKC) , intent(in) :: lb
15295 real(RKC) , intent(in) :: ub
15296 real(RKC) , intent(in) :: abstol
15297 real(RKC) , intent(in) :: reltol
15298 type(GK31_type) , intent(in) :: qrule
15299 type(wcauchy_type) , intent(in) :: help
15300 real(RKC) , intent(out) :: integral, abserr
15301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15302 integer(IK) , intent(out) , contiguous :: sindex(:)
15303 integer(IK) , intent(out) :: neval
15304 integer(IK) , intent(out) :: nint
15305 integer(IK) :: err
15306 end function
15307#endif
15308
15309#if RK2_ENABLED
15310 module function QAWC_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15312 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK2
15313#endif
15314 use pm_kind, only: RKC => RK2
15315 procedure(real(RKC)) :: getFunc
15316 real(RKC) , intent(in) :: lb
15317 real(RKC) , intent(in) :: ub
15318 real(RKC) , intent(in) :: abstol
15319 real(RKC) , intent(in) :: reltol
15320 type(GK31_type) , intent(in) :: qrule
15321 type(wcauchy_type) , intent(in) :: help
15322 real(RKC) , intent(out) :: integral, abserr
15323 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15324 integer(IK) , intent(out) , contiguous :: sindex(:)
15325 integer(IK) , intent(out) :: neval
15326 integer(IK) , intent(out) :: nint
15327 integer(IK) :: err
15328 end function
15329#endif
15330
15331#if RK1_ENABLED
15332 module function QAWC_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15334 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK1
15335#endif
15336 use pm_kind, only: RKC => RK1
15337 procedure(real(RKC)) :: getFunc
15338 real(RKC) , intent(in) :: lb
15339 real(RKC) , intent(in) :: ub
15340 real(RKC) , intent(in) :: abstol
15341 real(RKC) , intent(in) :: reltol
15342 type(GK31_type) , intent(in) :: qrule
15343 type(wcauchy_type) , intent(in) :: help
15344 real(RKC) , intent(out) :: integral, abserr
15345 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15346 integer(IK) , intent(out) , contiguous :: sindex(:)
15347 integer(IK) , intent(out) :: neval
15348 integer(IK) , intent(out) :: nint
15349 integer(IK) :: err
15350 end function
15351#endif
15352
15353 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15354
15355#if RK5_ENABLED
15356 module function QAWC_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15358 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK5
15359#endif
15360 use pm_kind, only: RKC => RK5
15361 procedure(real(RKC)) :: getFunc
15362 real(RKC) , intent(in) :: lb
15363 real(RKC) , intent(in) :: ub
15364 real(RKC) , intent(in) :: abstol
15365 real(RKC) , intent(in) :: reltol
15366 type(GK41_type) , intent(in) :: qrule
15367 type(wcauchy_type) , intent(in) :: help
15368 real(RKC) , intent(out) :: integral, abserr
15369 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15370 integer(IK) , intent(out) , contiguous :: sindex(:)
15371 integer(IK) , intent(out) :: neval
15372 integer(IK) , intent(out) :: nint
15373 integer(IK) :: err
15374 end function
15375#endif
15376
15377#if RK4_ENABLED
15378 module function QAWC_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15380 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK4
15381#endif
15382 use pm_kind, only: RKC => RK4
15383 procedure(real(RKC)) :: getFunc
15384 real(RKC) , intent(in) :: lb
15385 real(RKC) , intent(in) :: ub
15386 real(RKC) , intent(in) :: abstol
15387 real(RKC) , intent(in) :: reltol
15388 type(GK41_type) , intent(in) :: qrule
15389 type(wcauchy_type) , intent(in) :: help
15390 real(RKC) , intent(out) :: integral, abserr
15391 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15392 integer(IK) , intent(out) , contiguous :: sindex(:)
15393 integer(IK) , intent(out) :: neval
15394 integer(IK) , intent(out) :: nint
15395 integer(IK) :: err
15396 end function
15397#endif
15398
15399#if RK3_ENABLED
15400 module function QAWC_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15402 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK3
15403#endif
15404 use pm_kind, only: RKC => RK3
15405 procedure(real(RKC)) :: getFunc
15406 real(RKC) , intent(in) :: lb
15407 real(RKC) , intent(in) :: ub
15408 real(RKC) , intent(in) :: abstol
15409 real(RKC) , intent(in) :: reltol
15410 type(GK41_type) , intent(in) :: qrule
15411 type(wcauchy_type) , intent(in) :: help
15412 real(RKC) , intent(out) :: integral, abserr
15413 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15414 integer(IK) , intent(out) , contiguous :: sindex(:)
15415 integer(IK) , intent(out) :: neval
15416 integer(IK) , intent(out) :: nint
15417 integer(IK) :: err
15418 end function
15419#endif
15420
15421#if RK2_ENABLED
15422 module function QAWC_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15424 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK2
15425#endif
15426 use pm_kind, only: RKC => RK2
15427 procedure(real(RKC)) :: getFunc
15428 real(RKC) , intent(in) :: lb
15429 real(RKC) , intent(in) :: ub
15430 real(RKC) , intent(in) :: abstol
15431 real(RKC) , intent(in) :: reltol
15432 type(GK41_type) , intent(in) :: qrule
15433 type(wcauchy_type) , intent(in) :: help
15434 real(RKC) , intent(out) :: integral, abserr
15435 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15436 integer(IK) , intent(out) , contiguous :: sindex(:)
15437 integer(IK) , intent(out) :: neval
15438 integer(IK) , intent(out) :: nint
15439 integer(IK) :: err
15440 end function
15441#endif
15442
15443#if RK1_ENABLED
15444 module function QAWC_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15446 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK1
15447#endif
15448 use pm_kind, only: RKC => RK1
15449 procedure(real(RKC)) :: getFunc
15450 real(RKC) , intent(in) :: lb
15451 real(RKC) , intent(in) :: ub
15452 real(RKC) , intent(in) :: abstol
15453 real(RKC) , intent(in) :: reltol
15454 type(GK41_type) , intent(in) :: qrule
15455 type(wcauchy_type) , intent(in) :: help
15456 real(RKC) , intent(out) :: integral, abserr
15457 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15458 integer(IK) , intent(out) , contiguous :: sindex(:)
15459 integer(IK) , intent(out) :: neval
15460 integer(IK) , intent(out) :: nint
15461 integer(IK) :: err
15462 end function
15463#endif
15464
15465 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15466
15467#if RK5_ENABLED
15468 module function QAWC_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15470 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK5
15471#endif
15472 use pm_kind, only: RKC => RK5
15473 procedure(real(RKC)) :: getFunc
15474 real(RKC) , intent(in) :: lb
15475 real(RKC) , intent(in) :: ub
15476 real(RKC) , intent(in) :: abstol
15477 real(RKC) , intent(in) :: reltol
15478 type(GK51_type) , intent(in) :: qrule
15479 type(wcauchy_type) , intent(in) :: help
15480 real(RKC) , intent(out) :: integral, abserr
15481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15482 integer(IK) , intent(out) , contiguous :: sindex(:)
15483 integer(IK) , intent(out) :: neval
15484 integer(IK) , intent(out) :: nint
15485 integer(IK) :: err
15486 end function
15487#endif
15488
15489#if RK4_ENABLED
15490 module function QAWC_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15492 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK4
15493#endif
15494 use pm_kind, only: RKC => RK4
15495 procedure(real(RKC)) :: getFunc
15496 real(RKC) , intent(in) :: lb
15497 real(RKC) , intent(in) :: ub
15498 real(RKC) , intent(in) :: abstol
15499 real(RKC) , intent(in) :: reltol
15500 type(GK51_type) , intent(in) :: qrule
15501 type(wcauchy_type) , intent(in) :: help
15502 real(RKC) , intent(out) :: integral, abserr
15503 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15504 integer(IK) , intent(out) , contiguous :: sindex(:)
15505 integer(IK) , intent(out) :: neval
15506 integer(IK) , intent(out) :: nint
15507 integer(IK) :: err
15508 end function
15509#endif
15510
15511#if RK3_ENABLED
15512 module function QAWC_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15514 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK3
15515#endif
15516 use pm_kind, only: RKC => RK3
15517 procedure(real(RKC)) :: getFunc
15518 real(RKC) , intent(in) :: lb
15519 real(RKC) , intent(in) :: ub
15520 real(RKC) , intent(in) :: abstol
15521 real(RKC) , intent(in) :: reltol
15522 type(GK51_type) , intent(in) :: qrule
15523 type(wcauchy_type) , intent(in) :: help
15524 real(RKC) , intent(out) :: integral, abserr
15525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15526 integer(IK) , intent(out) , contiguous :: sindex(:)
15527 integer(IK) , intent(out) :: neval
15528 integer(IK) , intent(out) :: nint
15529 integer(IK) :: err
15530 end function
15531#endif
15532
15533#if RK2_ENABLED
15534 module function QAWC_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15536 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK2
15537#endif
15538 use pm_kind, only: RKC => RK2
15539 procedure(real(RKC)) :: getFunc
15540 real(RKC) , intent(in) :: lb
15541 real(RKC) , intent(in) :: ub
15542 real(RKC) , intent(in) :: abstol
15543 real(RKC) , intent(in) :: reltol
15544 type(GK51_type) , intent(in) :: qrule
15545 type(wcauchy_type) , intent(in) :: help
15546 real(RKC) , intent(out) :: integral, abserr
15547 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15548 integer(IK) , intent(out) , contiguous :: sindex(:)
15549 integer(IK) , intent(out) :: neval
15550 integer(IK) , intent(out) :: nint
15551 integer(IK) :: err
15552 end function
15553#endif
15554
15555#if RK1_ENABLED
15556 module function QAWC_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15558 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK1
15559#endif
15560 use pm_kind, only: RKC => RK1
15561 procedure(real(RKC)) :: getFunc
15562 real(RKC) , intent(in) :: lb
15563 real(RKC) , intent(in) :: ub
15564 real(RKC) , intent(in) :: abstol
15565 real(RKC) , intent(in) :: reltol
15566 type(GK51_type) , intent(in) :: qrule
15567 type(wcauchy_type) , intent(in) :: help
15568 real(RKC) , intent(out) :: integral, abserr
15569 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15570 integer(IK) , intent(out) , contiguous :: sindex(:)
15571 integer(IK) , intent(out) :: neval
15572 integer(IK) , intent(out) :: nint
15573 integer(IK) :: err
15574 end function
15575#endif
15576
15577 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15578
15579#if RK5_ENABLED
15580 module function QAWC_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15582 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK5
15583#endif
15584 use pm_kind, only: RKC => RK5
15585 procedure(real(RKC)) :: getFunc
15586 real(RKC) , intent(in) :: lb
15587 real(RKC) , intent(in) :: ub
15588 real(RKC) , intent(in) :: abstol
15589 real(RKC) , intent(in) :: reltol
15590 type(GK61_type) , intent(in) :: qrule
15591 type(wcauchy_type) , intent(in) :: help
15592 real(RKC) , intent(out) :: integral, abserr
15593 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15594 integer(IK) , intent(out) , contiguous :: sindex(:)
15595 integer(IK) , intent(out) :: neval
15596 integer(IK) , intent(out) :: nint
15597 integer(IK) :: err
15598 end function
15599#endif
15600
15601#if RK4_ENABLED
15602 module function QAWC_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15604 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK4
15605#endif
15606 use pm_kind, only: RKC => RK4
15607 procedure(real(RKC)) :: getFunc
15608 real(RKC) , intent(in) :: lb
15609 real(RKC) , intent(in) :: ub
15610 real(RKC) , intent(in) :: abstol
15611 real(RKC) , intent(in) :: reltol
15612 type(GK61_type) , intent(in) :: qrule
15613 type(wcauchy_type) , intent(in) :: help
15614 real(RKC) , intent(out) :: integral, abserr
15615 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15616 integer(IK) , intent(out) , contiguous :: sindex(:)
15617 integer(IK) , intent(out) :: neval
15618 integer(IK) , intent(out) :: nint
15619 integer(IK) :: err
15620 end function
15621#endif
15622
15623#if RK3_ENABLED
15624 module function QAWC_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15626 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK3
15627#endif
15628 use pm_kind, only: RKC => RK3
15629 procedure(real(RKC)) :: getFunc
15630 real(RKC) , intent(in) :: lb
15631 real(RKC) , intent(in) :: ub
15632 real(RKC) , intent(in) :: abstol
15633 real(RKC) , intent(in) :: reltol
15634 type(GK61_type) , intent(in) :: qrule
15635 type(wcauchy_type) , intent(in) :: help
15636 real(RKC) , intent(out) :: integral, abserr
15637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15638 integer(IK) , intent(out) , contiguous :: sindex(:)
15639 integer(IK) , intent(out) :: neval
15640 integer(IK) , intent(out) :: nint
15641 integer(IK) :: err
15642 end function
15643#endif
15644
15645#if RK2_ENABLED
15646 module function QAWC_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15648 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK2
15649#endif
15650 use pm_kind, only: RKC => RK2
15651 procedure(real(RKC)) :: getFunc
15652 real(RKC) , intent(in) :: lb
15653 real(RKC) , intent(in) :: ub
15654 real(RKC) , intent(in) :: abstol
15655 real(RKC) , intent(in) :: reltol
15656 type(GK61_type) , intent(in) :: qrule
15657 type(wcauchy_type) , intent(in) :: help
15658 real(RKC) , intent(out) :: integral, abserr
15659 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15660 integer(IK) , intent(out) , contiguous :: sindex(:)
15661 integer(IK) , intent(out) :: neval
15662 integer(IK) , intent(out) :: nint
15663 integer(IK) :: err
15664 end function
15665#endif
15666
15667#if RK1_ENABLED
15668 module function QAWC_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15670 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK1
15671#endif
15672 use pm_kind, only: RKC => RK1
15673 procedure(real(RKC)) :: getFunc
15674 real(RKC) , intent(in) :: lb
15675 real(RKC) , intent(in) :: ub
15676 real(RKC) , intent(in) :: abstol
15677 real(RKC) , intent(in) :: reltol
15678 type(GK61_type) , intent(in) :: qrule
15679 type(wcauchy_type) , intent(in) :: help
15680 real(RKC) , intent(out) :: integral, abserr
15681 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15682 integer(IK) , intent(out) , contiguous :: sindex(:)
15683 integer(IK) , intent(out) :: neval
15684 integer(IK) , intent(out) :: nint
15685 integer(IK) :: err
15686 end function
15687#endif
15688
15689 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15690
15691#if RK5_ENABLED
15692 module function QAWC_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15694 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK5
15695#endif
15696 use pm_kind, only: RKC => RK5
15697 procedure(real(RKC)) :: getFunc
15698 real(RKC) , intent(in) :: lb
15699 real(RKC) , intent(in) :: ub
15700 real(RKC) , intent(in) :: abstol
15701 real(RKC) , intent(in) :: reltol
15702 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15703 type(wcauchy_type) , intent(in) :: help
15704 real(RKC) , intent(out) :: integral, abserr
15705 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15706 integer(IK) , intent(out) , contiguous :: sindex(:)
15707 integer(IK) , intent(out) :: neval
15708 integer(IK) , intent(out) :: nint
15709 integer(IK) :: err
15710 end function
15711#endif
15712
15713#if RK4_ENABLED
15714 module function QAWC_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15716 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK4
15717#endif
15718 use pm_kind, only: RKC => RK4
15719 procedure(real(RKC)) :: getFunc
15720 real(RKC) , intent(in) :: lb
15721 real(RKC) , intent(in) :: ub
15722 real(RKC) , intent(in) :: abstol
15723 real(RKC) , intent(in) :: reltol
15724 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15725 type(wcauchy_type) , intent(in) :: help
15726 real(RKC) , intent(out) :: integral, abserr
15727 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15728 integer(IK) , intent(out) , contiguous :: sindex(:)
15729 integer(IK) , intent(out) :: neval
15730 integer(IK) , intent(out) :: nint
15731 integer(IK) :: err
15732 end function
15733#endif
15734
15735#if RK3_ENABLED
15736 module function QAWC_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15738 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK3
15739#endif
15740 use pm_kind, only: RKC => RK3
15741 procedure(real(RKC)) :: getFunc
15742 real(RKC) , intent(in) :: lb
15743 real(RKC) , intent(in) :: ub
15744 real(RKC) , intent(in) :: abstol
15745 real(RKC) , intent(in) :: reltol
15746 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15747 type(wcauchy_type) , intent(in) :: help
15748 real(RKC) , intent(out) :: integral, abserr
15749 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15750 integer(IK) , intent(out) , contiguous :: sindex(:)
15751 integer(IK) , intent(out) :: neval
15752 integer(IK) , intent(out) :: nint
15753 integer(IK) :: err
15754 end function
15755#endif
15756
15757#if RK2_ENABLED
15758 module function QAWC_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15760 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK2
15761#endif
15762 use pm_kind, only: RKC => RK2
15763 procedure(real(RKC)) :: getFunc
15764 real(RKC) , intent(in) :: lb
15765 real(RKC) , intent(in) :: ub
15766 real(RKC) , intent(in) :: abstol
15767 real(RKC) , intent(in) :: reltol
15768 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15769 type(wcauchy_type) , intent(in) :: help
15770 real(RKC) , intent(out) :: integral, abserr
15771 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15772 integer(IK) , intent(out) , contiguous :: sindex(:)
15773 integer(IK) , intent(out) :: neval
15774 integer(IK) , intent(out) :: nint
15775 integer(IK) :: err
15776 end function
15777#endif
15778
15779#if RK1_ENABLED
15780 module function QAWC_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15782 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK1
15783#endif
15784 use pm_kind, only: RKC => RK1
15785 procedure(real(RKC)) :: getFunc
15786 real(RKC) , intent(in) :: lb
15787 real(RKC) , intent(in) :: ub
15788 real(RKC) , intent(in) :: abstol
15789 real(RKC) , intent(in) :: reltol
15790 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15791 type(wcauchy_type) , intent(in) :: help
15792 real(RKC) , intent(out) :: integral, abserr
15793 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15794 integer(IK) , intent(out) , contiguous :: sindex(:)
15795 integer(IK) , intent(out) :: neval
15796 integer(IK) , intent(out) :: nint
15797 integer(IK) :: err
15798 end function
15799#endif
15800
15801 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15802
15803 end interface
15804
15805 ! QAWC FI
15806
15807 interface getQuadErr
15808
15809 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15810
15811#if RK5_ENABLED
15812 module function QAWC_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15814 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK5
15815#endif
15816 use pm_kind, only: RKC => RK5
15817 procedure(real(RKC)) :: getFunc
15818 real(RKC) , intent(in) :: lb
15819 type(pinf_type) , intent(in) :: ub
15820 real(RKC) , intent(in) :: abstol
15821 real(RKC) , intent(in) :: reltol
15822 type(GK15_type) , intent(in) :: qrule
15823 type(wcauchy_type) , intent(in) :: help
15824 real(RKC) , intent(out) :: integral, abserr
15825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15826 integer(IK) , intent(out) , contiguous :: sindex(:)
15827 integer(IK) , intent(out) :: neval
15828 integer(IK) , intent(out) :: nint
15829 integer(IK) :: err
15830 end function
15831#endif
15832
15833#if RK4_ENABLED
15834 module function QAWC_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15836 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK4
15837#endif
15838 use pm_kind, only: RKC => RK4
15839 procedure(real(RKC)) :: getFunc
15840 real(RKC) , intent(in) :: lb
15841 type(pinf_type) , intent(in) :: ub
15842 real(RKC) , intent(in) :: abstol
15843 real(RKC) , intent(in) :: reltol
15844 type(GK15_type) , intent(in) :: qrule
15845 type(wcauchy_type) , intent(in) :: help
15846 real(RKC) , intent(out) :: integral, abserr
15847 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15848 integer(IK) , intent(out) , contiguous :: sindex(:)
15849 integer(IK) , intent(out) :: neval
15850 integer(IK) , intent(out) :: nint
15851 integer(IK) :: err
15852 end function
15853#endif
15854
15855#if RK3_ENABLED
15856 module function QAWC_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15858 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK3
15859#endif
15860 use pm_kind, only: RKC => RK3
15861 procedure(real(RKC)) :: getFunc
15862 real(RKC) , intent(in) :: lb
15863 type(pinf_type) , intent(in) :: ub
15864 real(RKC) , intent(in) :: abstol
15865 real(RKC) , intent(in) :: reltol
15866 type(GK15_type) , intent(in) :: qrule
15867 type(wcauchy_type) , intent(in) :: help
15868 real(RKC) , intent(out) :: integral, abserr
15869 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15870 integer(IK) , intent(out) , contiguous :: sindex(:)
15871 integer(IK) , intent(out) :: neval
15872 integer(IK) , intent(out) :: nint
15873 integer(IK) :: err
15874 end function
15875#endif
15876
15877#if RK2_ENABLED
15878 module function QAWC_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15880 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK2
15881#endif
15882 use pm_kind, only: RKC => RK2
15883 procedure(real(RKC)) :: getFunc
15884 real(RKC) , intent(in) :: lb
15885 type(pinf_type) , intent(in) :: ub
15886 real(RKC) , intent(in) :: abstol
15887 real(RKC) , intent(in) :: reltol
15888 type(GK15_type) , intent(in) :: qrule
15889 type(wcauchy_type) , intent(in) :: help
15890 real(RKC) , intent(out) :: integral, abserr
15891 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15892 integer(IK) , intent(out) , contiguous :: sindex(:)
15893 integer(IK) , intent(out) :: neval
15894 integer(IK) , intent(out) :: nint
15895 integer(IK) :: err
15896 end function
15897#endif
15898
15899#if RK1_ENABLED
15900 module function QAWC_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15902 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK1
15903#endif
15904 use pm_kind, only: RKC => RK1
15905 procedure(real(RKC)) :: getFunc
15906 real(RKC) , intent(in) :: lb
15907 type(pinf_type) , intent(in) :: ub
15908 real(RKC) , intent(in) :: abstol
15909 real(RKC) , intent(in) :: reltol
15910 type(GK15_type) , intent(in) :: qrule
15911 type(wcauchy_type) , intent(in) :: help
15912 real(RKC) , intent(out) :: integral, abserr
15913 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15914 integer(IK) , intent(out) , contiguous :: sindex(:)
15915 integer(IK) , intent(out) :: neval
15916 integer(IK) , intent(out) :: nint
15917 integer(IK) :: err
15918 end function
15919#endif
15920
15921 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15922
15923#if RK5_ENABLED
15924 module function QAWC_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15926 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK5
15927#endif
15928 use pm_kind, only: RKC => RK5
15929 procedure(real(RKC)) :: getFunc
15930 real(RKC) , intent(in) :: lb
15931 type(pinf_type) , intent(in) :: ub
15932 real(RKC) , intent(in) :: abstol
15933 real(RKC) , intent(in) :: reltol
15934 type(GK21_type) , intent(in) :: qrule
15935 type(wcauchy_type) , intent(in) :: help
15936 real(RKC) , intent(out) :: integral, abserr
15937 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15938 integer(IK) , intent(out) , contiguous :: sindex(:)
15939 integer(IK) , intent(out) :: neval
15940 integer(IK) , intent(out) :: nint
15941 integer(IK) :: err
15942 end function
15943#endif
15944
15945#if RK4_ENABLED
15946 module function QAWC_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15948 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK4
15949#endif
15950 use pm_kind, only: RKC => RK4
15951 procedure(real(RKC)) :: getFunc
15952 real(RKC) , intent(in) :: lb
15953 type(pinf_type) , intent(in) :: ub
15954 real(RKC) , intent(in) :: abstol
15955 real(RKC) , intent(in) :: reltol
15956 type(GK21_type) , intent(in) :: qrule
15957 type(wcauchy_type) , intent(in) :: help
15958 real(RKC) , intent(out) :: integral, abserr
15959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15960 integer(IK) , intent(out) , contiguous :: sindex(:)
15961 integer(IK) , intent(out) :: neval
15962 integer(IK) , intent(out) :: nint
15963 integer(IK) :: err
15964 end function
15965#endif
15966
15967#if RK3_ENABLED
15968 module function QAWC_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15970 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK3
15971#endif
15972 use pm_kind, only: RKC => RK3
15973 procedure(real(RKC)) :: getFunc
15974 real(RKC) , intent(in) :: lb
15975 type(pinf_type) , intent(in) :: ub
15976 real(RKC) , intent(in) :: abstol
15977 real(RKC) , intent(in) :: reltol
15978 type(GK21_type) , intent(in) :: qrule
15979 type(wcauchy_type) , intent(in) :: help
15980 real(RKC) , intent(out) :: integral, abserr
15981 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15982 integer(IK) , intent(out) , contiguous :: sindex(:)
15983 integer(IK) , intent(out) :: neval
15984 integer(IK) , intent(out) :: nint
15985 integer(IK) :: err
15986 end function
15987#endif
15988
15989#if RK2_ENABLED
15990 module function QAWC_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15992 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK2
15993#endif
15994 use pm_kind, only: RKC => RK2
15995 procedure(real(RKC)) :: getFunc
15996 real(RKC) , intent(in) :: lb
15997 type(pinf_type) , intent(in) :: ub
15998 real(RKC) , intent(in) :: abstol
15999 real(RKC) , intent(in) :: reltol
16000 type(GK21_type) , intent(in) :: qrule
16001 type(wcauchy_type) , intent(in) :: help
16002 real(RKC) , intent(out) :: integral, abserr
16003 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16004 integer(IK) , intent(out) , contiguous :: sindex(:)
16005 integer(IK) , intent(out) :: neval
16006 integer(IK) , intent(out) :: nint
16007 integer(IK) :: err
16008 end function
16009#endif
16010
16011#if RK1_ENABLED
16012 module function QAWC_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16014 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK1
16015#endif
16016 use pm_kind, only: RKC => RK1
16017 procedure(real(RKC)) :: getFunc
16018 real(RKC) , intent(in) :: lb
16019 type(pinf_type) , intent(in) :: ub
16020 real(RKC) , intent(in) :: abstol
16021 real(RKC) , intent(in) :: reltol
16022 type(GK21_type) , intent(in) :: qrule
16023 type(wcauchy_type) , intent(in) :: help
16024 real(RKC) , intent(out) :: integral, abserr
16025 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16026 integer(IK) , intent(out) , contiguous :: sindex(:)
16027 integer(IK) , intent(out) :: neval
16028 integer(IK) , intent(out) :: nint
16029 integer(IK) :: err
16030 end function
16031#endif
16032
16033 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16034
16035#if RK5_ENABLED
16036 module function QAWC_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16038 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK5
16039#endif
16040 use pm_kind, only: RKC => RK5
16041 procedure(real(RKC)) :: getFunc
16042 real(RKC) , intent(in) :: lb
16043 type(pinf_type) , intent(in) :: ub
16044 real(RKC) , intent(in) :: abstol
16045 real(RKC) , intent(in) :: reltol
16046 type(GK31_type) , intent(in) :: qrule
16047 type(wcauchy_type) , intent(in) :: help
16048 real(RKC) , intent(out) :: integral, abserr
16049 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16050 integer(IK) , intent(out) , contiguous :: sindex(:)
16051 integer(IK) , intent(out) :: neval
16052 integer(IK) , intent(out) :: nint
16053 integer(IK) :: err
16054 end function
16055#endif
16056
16057#if RK4_ENABLED
16058 module function QAWC_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16060 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK4
16061#endif
16062 use pm_kind, only: RKC => RK4
16063 procedure(real(RKC)) :: getFunc
16064 real(RKC) , intent(in) :: lb
16065 type(pinf_type) , intent(in) :: ub
16066 real(RKC) , intent(in) :: abstol
16067 real(RKC) , intent(in) :: reltol
16068 type(GK31_type) , intent(in) :: qrule
16069 type(wcauchy_type) , intent(in) :: help
16070 real(RKC) , intent(out) :: integral, abserr
16071 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16072 integer(IK) , intent(out) , contiguous :: sindex(:)
16073 integer(IK) , intent(out) :: neval
16074 integer(IK) , intent(out) :: nint
16075 integer(IK) :: err
16076 end function
16077#endif
16078
16079#if RK3_ENABLED
16080 module function QAWC_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16082 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK3
16083#endif
16084 use pm_kind, only: RKC => RK3
16085 procedure(real(RKC)) :: getFunc
16086 real(RKC) , intent(in) :: lb
16087 type(pinf_type) , intent(in) :: ub
16088 real(RKC) , intent(in) :: abstol
16089 real(RKC) , intent(in) :: reltol
16090 type(GK31_type) , intent(in) :: qrule
16091 type(wcauchy_type) , intent(in) :: help
16092 real(RKC) , intent(out) :: integral, abserr
16093 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16094 integer(IK) , intent(out) , contiguous :: sindex(:)
16095 integer(IK) , intent(out) :: neval
16096 integer(IK) , intent(out) :: nint
16097 integer(IK) :: err
16098 end function
16099#endif
16100
16101#if RK2_ENABLED
16102 module function QAWC_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16104 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK2
16105#endif
16106 use pm_kind, only: RKC => RK2
16107 procedure(real(RKC)) :: getFunc
16108 real(RKC) , intent(in) :: lb
16109 type(pinf_type) , intent(in) :: ub
16110 real(RKC) , intent(in) :: abstol
16111 real(RKC) , intent(in) :: reltol
16112 type(GK31_type) , intent(in) :: qrule
16113 type(wcauchy_type) , intent(in) :: help
16114 real(RKC) , intent(out) :: integral, abserr
16115 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16116 integer(IK) , intent(out) , contiguous :: sindex(:)
16117 integer(IK) , intent(out) :: neval
16118 integer(IK) , intent(out) :: nint
16119 integer(IK) :: err
16120 end function
16121#endif
16122
16123#if RK1_ENABLED
16124 module function QAWC_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16126 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK1
16127#endif
16128 use pm_kind, only: RKC => RK1
16129 procedure(real(RKC)) :: getFunc
16130 real(RKC) , intent(in) :: lb
16131 type(pinf_type) , intent(in) :: ub
16132 real(RKC) , intent(in) :: abstol
16133 real(RKC) , intent(in) :: reltol
16134 type(GK31_type) , intent(in) :: qrule
16135 type(wcauchy_type) , intent(in) :: help
16136 real(RKC) , intent(out) :: integral, abserr
16137 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16138 integer(IK) , intent(out) , contiguous :: sindex(:)
16139 integer(IK) , intent(out) :: neval
16140 integer(IK) , intent(out) :: nint
16141 integer(IK) :: err
16142 end function
16143#endif
16144
16145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16146
16147#if RK5_ENABLED
16148 module function QAWC_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16150 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK5
16151#endif
16152 use pm_kind, only: RKC => RK5
16153 procedure(real(RKC)) :: getFunc
16154 real(RKC) , intent(in) :: lb
16155 type(pinf_type) , intent(in) :: ub
16156 real(RKC) , intent(in) :: abstol
16157 real(RKC) , intent(in) :: reltol
16158 type(GK41_type) , intent(in) :: qrule
16159 type(wcauchy_type) , intent(in) :: help
16160 real(RKC) , intent(out) :: integral, abserr
16161 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16162 integer(IK) , intent(out) , contiguous :: sindex(:)
16163 integer(IK) , intent(out) :: neval
16164 integer(IK) , intent(out) :: nint
16165 integer(IK) :: err
16166 end function
16167#endif
16168
16169#if RK4_ENABLED
16170 module function QAWC_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16172 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK4
16173#endif
16174 use pm_kind, only: RKC => RK4
16175 procedure(real(RKC)) :: getFunc
16176 real(RKC) , intent(in) :: lb
16177 type(pinf_type) , intent(in) :: ub
16178 real(RKC) , intent(in) :: abstol
16179 real(RKC) , intent(in) :: reltol
16180 type(GK41_type) , intent(in) :: qrule
16181 type(wcauchy_type) , intent(in) :: help
16182 real(RKC) , intent(out) :: integral, abserr
16183 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16184 integer(IK) , intent(out) , contiguous :: sindex(:)
16185 integer(IK) , intent(out) :: neval
16186 integer(IK) , intent(out) :: nint
16187 integer(IK) :: err
16188 end function
16189#endif
16190
16191#if RK3_ENABLED
16192 module function QAWC_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16194 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK3
16195#endif
16196 use pm_kind, only: RKC => RK3
16197 procedure(real(RKC)) :: getFunc
16198 real(RKC) , intent(in) :: lb
16199 type(pinf_type) , intent(in) :: ub
16200 real(RKC) , intent(in) :: abstol
16201 real(RKC) , intent(in) :: reltol
16202 type(GK41_type) , intent(in) :: qrule
16203 type(wcauchy_type) , intent(in) :: help
16204 real(RKC) , intent(out) :: integral, abserr
16205 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16206 integer(IK) , intent(out) , contiguous :: sindex(:)
16207 integer(IK) , intent(out) :: neval
16208 integer(IK) , intent(out) :: nint
16209 integer(IK) :: err
16210 end function
16211#endif
16212
16213#if RK2_ENABLED
16214 module function QAWC_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16216 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK2
16217#endif
16218 use pm_kind, only: RKC => RK2
16219 procedure(real(RKC)) :: getFunc
16220 real(RKC) , intent(in) :: lb
16221 type(pinf_type) , intent(in) :: ub
16222 real(RKC) , intent(in) :: abstol
16223 real(RKC) , intent(in) :: reltol
16224 type(GK41_type) , intent(in) :: qrule
16225 type(wcauchy_type) , intent(in) :: help
16226 real(RKC) , intent(out) :: integral, abserr
16227 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16228 integer(IK) , intent(out) , contiguous :: sindex(:)
16229 integer(IK) , intent(out) :: neval
16230 integer(IK) , intent(out) :: nint
16231 integer(IK) :: err
16232 end function
16233#endif
16234
16235#if RK1_ENABLED
16236 module function QAWC_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16238 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK1
16239#endif
16240 use pm_kind, only: RKC => RK1
16241 procedure(real(RKC)) :: getFunc
16242 real(RKC) , intent(in) :: lb
16243 type(pinf_type) , intent(in) :: ub
16244 real(RKC) , intent(in) :: abstol
16245 real(RKC) , intent(in) :: reltol
16246 type(GK41_type) , intent(in) :: qrule
16247 type(wcauchy_type) , intent(in) :: help
16248 real(RKC) , intent(out) :: integral, abserr
16249 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16250 integer(IK) , intent(out) , contiguous :: sindex(:)
16251 integer(IK) , intent(out) :: neval
16252 integer(IK) , intent(out) :: nint
16253 integer(IK) :: err
16254 end function
16255#endif
16256
16257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16258
16259#if RK5_ENABLED
16260 module function QAWC_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16262 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK5
16263#endif
16264 use pm_kind, only: RKC => RK5
16265 procedure(real(RKC)) :: getFunc
16266 real(RKC) , intent(in) :: lb
16267 type(pinf_type) , intent(in) :: ub
16268 real(RKC) , intent(in) :: abstol
16269 real(RKC) , intent(in) :: reltol
16270 type(GK51_type) , intent(in) :: qrule
16271 type(wcauchy_type) , intent(in) :: help
16272 real(RKC) , intent(out) :: integral, abserr
16273 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16274 integer(IK) , intent(out) , contiguous :: sindex(:)
16275 integer(IK) , intent(out) :: neval
16276 integer(IK) , intent(out) :: nint
16277 integer(IK) :: err
16278 end function
16279#endif
16280
16281#if RK4_ENABLED
16282 module function QAWC_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16284 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK4
16285#endif
16286 use pm_kind, only: RKC => RK4
16287 procedure(real(RKC)) :: getFunc
16288 real(RKC) , intent(in) :: lb
16289 type(pinf_type) , intent(in) :: ub
16290 real(RKC) , intent(in) :: abstol
16291 real(RKC) , intent(in) :: reltol
16292 type(GK51_type) , intent(in) :: qrule
16293 type(wcauchy_type) , intent(in) :: help
16294 real(RKC) , intent(out) :: integral, abserr
16295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16296 integer(IK) , intent(out) , contiguous :: sindex(:)
16297 integer(IK) , intent(out) :: neval
16298 integer(IK) , intent(out) :: nint
16299 integer(IK) :: err
16300 end function
16301#endif
16302
16303#if RK3_ENABLED
16304 module function QAWC_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16306 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK3
16307#endif
16308 use pm_kind, only: RKC => RK3
16309 procedure(real(RKC)) :: getFunc
16310 real(RKC) , intent(in) :: lb
16311 type(pinf_type) , intent(in) :: ub
16312 real(RKC) , intent(in) :: abstol
16313 real(RKC) , intent(in) :: reltol
16314 type(GK51_type) , intent(in) :: qrule
16315 type(wcauchy_type) , intent(in) :: help
16316 real(RKC) , intent(out) :: integral, abserr
16317 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16318 integer(IK) , intent(out) , contiguous :: sindex(:)
16319 integer(IK) , intent(out) :: neval
16320 integer(IK) , intent(out) :: nint
16321 integer(IK) :: err
16322 end function
16323#endif
16324
16325#if RK2_ENABLED
16326 module function QAWC_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16328 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK2
16329#endif
16330 use pm_kind, only: RKC => RK2
16331 procedure(real(RKC)) :: getFunc
16332 real(RKC) , intent(in) :: lb
16333 type(pinf_type) , intent(in) :: ub
16334 real(RKC) , intent(in) :: abstol
16335 real(RKC) , intent(in) :: reltol
16336 type(GK51_type) , intent(in) :: qrule
16337 type(wcauchy_type) , intent(in) :: help
16338 real(RKC) , intent(out) :: integral, abserr
16339 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16340 integer(IK) , intent(out) , contiguous :: sindex(:)
16341 integer(IK) , intent(out) :: neval
16342 integer(IK) , intent(out) :: nint
16343 integer(IK) :: err
16344 end function
16345#endif
16346
16347#if RK1_ENABLED
16348 module function QAWC_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16350 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK1
16351#endif
16352 use pm_kind, only: RKC => RK1
16353 procedure(real(RKC)) :: getFunc
16354 real(RKC) , intent(in) :: lb
16355 type(pinf_type) , intent(in) :: ub
16356 real(RKC) , intent(in) :: abstol
16357 real(RKC) , intent(in) :: reltol
16358 type(GK51_type) , intent(in) :: qrule
16359 type(wcauchy_type) , intent(in) :: help
16360 real(RKC) , intent(out) :: integral, abserr
16361 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16362 integer(IK) , intent(out) , contiguous :: sindex(:)
16363 integer(IK) , intent(out) :: neval
16364 integer(IK) , intent(out) :: nint
16365 integer(IK) :: err
16366 end function
16367#endif
16368
16369 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16370
16371#if RK5_ENABLED
16372 module function QAWC_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16374 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK5
16375#endif
16376 use pm_kind, only: RKC => RK5
16377 procedure(real(RKC)) :: getFunc
16378 real(RKC) , intent(in) :: lb
16379 type(pinf_type) , intent(in) :: ub
16380 real(RKC) , intent(in) :: abstol
16381 real(RKC) , intent(in) :: reltol
16382 type(GK61_type) , intent(in) :: qrule
16383 type(wcauchy_type) , intent(in) :: help
16384 real(RKC) , intent(out) :: integral, abserr
16385 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16386 integer(IK) , intent(out) , contiguous :: sindex(:)
16387 integer(IK) , intent(out) :: neval
16388 integer(IK) , intent(out) :: nint
16389 integer(IK) :: err
16390 end function
16391#endif
16392
16393#if RK4_ENABLED
16394 module function QAWC_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16396 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK4
16397#endif
16398 use pm_kind, only: RKC => RK4
16399 procedure(real(RKC)) :: getFunc
16400 real(RKC) , intent(in) :: lb
16401 type(pinf_type) , intent(in) :: ub
16402 real(RKC) , intent(in) :: abstol
16403 real(RKC) , intent(in) :: reltol
16404 type(GK61_type) , intent(in) :: qrule
16405 type(wcauchy_type) , intent(in) :: help
16406 real(RKC) , intent(out) :: integral, abserr
16407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16408 integer(IK) , intent(out) , contiguous :: sindex(:)
16409 integer(IK) , intent(out) :: neval
16410 integer(IK) , intent(out) :: nint
16411 integer(IK) :: err
16412 end function
16413#endif
16414
16415#if RK3_ENABLED
16416 module function QAWC_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16418 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK3
16419#endif
16420 use pm_kind, only: RKC => RK3
16421 procedure(real(RKC)) :: getFunc
16422 real(RKC) , intent(in) :: lb
16423 type(pinf_type) , intent(in) :: ub
16424 real(RKC) , intent(in) :: abstol
16425 real(RKC) , intent(in) :: reltol
16426 type(GK61_type) , intent(in) :: qrule
16427 type(wcauchy_type) , intent(in) :: help
16428 real(RKC) , intent(out) :: integral, abserr
16429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16430 integer(IK) , intent(out) , contiguous :: sindex(:)
16431 integer(IK) , intent(out) :: neval
16432 integer(IK) , intent(out) :: nint
16433 integer(IK) :: err
16434 end function
16435#endif
16436
16437#if RK2_ENABLED
16438 module function QAWC_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16440 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK2
16441#endif
16442 use pm_kind, only: RKC => RK2
16443 procedure(real(RKC)) :: getFunc
16444 real(RKC) , intent(in) :: lb
16445 type(pinf_type) , intent(in) :: ub
16446 real(RKC) , intent(in) :: abstol
16447 real(RKC) , intent(in) :: reltol
16448 type(GK61_type) , intent(in) :: qrule
16449 type(wcauchy_type) , intent(in) :: help
16450 real(RKC) , intent(out) :: integral, abserr
16451 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16452 integer(IK) , intent(out) , contiguous :: sindex(:)
16453 integer(IK) , intent(out) :: neval
16454 integer(IK) , intent(out) :: nint
16455 integer(IK) :: err
16456 end function
16457#endif
16458
16459#if RK1_ENABLED
16460 module function QAWC_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16462 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK1
16463#endif
16464 use pm_kind, only: RKC => RK1
16465 procedure(real(RKC)) :: getFunc
16466 real(RKC) , intent(in) :: lb
16467 type(pinf_type) , intent(in) :: ub
16468 real(RKC) , intent(in) :: abstol
16469 real(RKC) , intent(in) :: reltol
16470 type(GK61_type) , intent(in) :: qrule
16471 type(wcauchy_type) , intent(in) :: help
16472 real(RKC) , intent(out) :: integral, abserr
16473 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16474 integer(IK) , intent(out) , contiguous :: sindex(:)
16475 integer(IK) , intent(out) :: neval
16476 integer(IK) , intent(out) :: nint
16477 integer(IK) :: err
16478 end function
16479#endif
16480
16481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16482
16483#if RK5_ENABLED
16484 module function QAWC_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16486 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK5
16487#endif
16488 use pm_kind, only: RKC => RK5
16489 procedure(real(RKC)) :: getFunc
16490 real(RKC) , intent(in) :: lb
16491 type(pinf_type) , intent(in) :: ub
16492 real(RKC) , intent(in) :: abstol
16493 real(RKC) , intent(in) :: reltol
16494 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16495 type(wcauchy_type) , intent(in) :: help
16496 real(RKC) , intent(out) :: integral, abserr
16497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16498 integer(IK) , intent(out) , contiguous :: sindex(:)
16499 integer(IK) , intent(out) :: neval
16500 integer(IK) , intent(out) :: nint
16501 integer(IK) :: err
16502 end function
16503#endif
16504
16505#if RK4_ENABLED
16506 module function QAWC_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16508 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK4
16509#endif
16510 use pm_kind, only: RKC => RK4
16511 procedure(real(RKC)) :: getFunc
16512 real(RKC) , intent(in) :: lb
16513 type(pinf_type) , intent(in) :: ub
16514 real(RKC) , intent(in) :: abstol
16515 real(RKC) , intent(in) :: reltol
16516 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16517 type(wcauchy_type) , intent(in) :: help
16518 real(RKC) , intent(out) :: integral, abserr
16519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16520 integer(IK) , intent(out) , contiguous :: sindex(:)
16521 integer(IK) , intent(out) :: neval
16522 integer(IK) , intent(out) :: nint
16523 integer(IK) :: err
16524 end function
16525#endif
16526
16527#if RK3_ENABLED
16528 module function QAWC_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16530 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK3
16531#endif
16532 use pm_kind, only: RKC => RK3
16533 procedure(real(RKC)) :: getFunc
16534 real(RKC) , intent(in) :: lb
16535 type(pinf_type) , intent(in) :: ub
16536 real(RKC) , intent(in) :: abstol
16537 real(RKC) , intent(in) :: reltol
16538 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16539 type(wcauchy_type) , intent(in) :: help
16540 real(RKC) , intent(out) :: integral, abserr
16541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16542 integer(IK) , intent(out) , contiguous :: sindex(:)
16543 integer(IK) , intent(out) :: neval
16544 integer(IK) , intent(out) :: nint
16545 integer(IK) :: err
16546 end function
16547#endif
16548
16549#if RK2_ENABLED
16550 module function QAWC_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16552 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK2
16553#endif
16554 use pm_kind, only: RKC => RK2
16555 procedure(real(RKC)) :: getFunc
16556 real(RKC) , intent(in) :: lb
16557 type(pinf_type) , intent(in) :: ub
16558 real(RKC) , intent(in) :: abstol
16559 real(RKC) , intent(in) :: reltol
16560 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16561 type(wcauchy_type) , intent(in) :: help
16562 real(RKC) , intent(out) :: integral, abserr
16563 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16564 integer(IK) , intent(out) , contiguous :: sindex(:)
16565 integer(IK) , intent(out) :: neval
16566 integer(IK) , intent(out) :: nint
16567 integer(IK) :: err
16568 end function
16569#endif
16570
16571#if RK1_ENABLED
16572 module function QAWC_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16574 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK1
16575#endif
16576 use pm_kind, only: RKC => RK1
16577 procedure(real(RKC)) :: getFunc
16578 real(RKC) , intent(in) :: lb
16579 type(pinf_type) , intent(in) :: ub
16580 real(RKC) , intent(in) :: abstol
16581 real(RKC) , intent(in) :: reltol
16582 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16583 type(wcauchy_type) , intent(in) :: help
16584 real(RKC) , intent(out) :: integral, abserr
16585 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16586 integer(IK) , intent(out) , contiguous :: sindex(:)
16587 integer(IK) , intent(out) :: neval
16588 integer(IK) , intent(out) :: nint
16589 integer(IK) :: err
16590 end function
16591#endif
16592
16593 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16594
16595 end interface
16596
16597 ! QAWC IF
16598
16599 interface getQuadErr
16600
16601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16602
16603#if RK5_ENABLED
16604 module function QAWC_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16606 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK5
16607#endif
16608 use pm_kind, only: RKC => RK5
16609 procedure(real(RKC)) :: getFunc
16610 type(ninf_type) , intent(in) :: lb
16611 real(RKC) , intent(in) :: ub
16612 real(RKC) , intent(in) :: abstol
16613 real(RKC) , intent(in) :: reltol
16614 type(GK15_type) , intent(in) :: qrule
16615 type(wcauchy_type) , intent(in) :: help
16616 real(RKC) , intent(out) :: integral, abserr
16617 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16618 integer(IK) , intent(out) , contiguous :: sindex(:)
16619 integer(IK) , intent(out) :: neval
16620 integer(IK) , intent(out) :: nint
16621 integer(IK) :: err
16622 end function
16623#endif
16624
16625#if RK4_ENABLED
16626 module function QAWC_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16628 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK4
16629#endif
16630 use pm_kind, only: RKC => RK4
16631 procedure(real(RKC)) :: getFunc
16632 type(ninf_type) , intent(in) :: lb
16633 real(RKC) , intent(in) :: ub
16634 real(RKC) , intent(in) :: abstol
16635 real(RKC) , intent(in) :: reltol
16636 type(GK15_type) , intent(in) :: qrule
16637 type(wcauchy_type) , intent(in) :: help
16638 real(RKC) , intent(out) :: integral, abserr
16639 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16640 integer(IK) , intent(out) , contiguous :: sindex(:)
16641 integer(IK) , intent(out) :: neval
16642 integer(IK) , intent(out) :: nint
16643 integer(IK) :: err
16644 end function
16645#endif
16646
16647#if RK3_ENABLED
16648 module function QAWC_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16650 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK3
16651#endif
16652 use pm_kind, only: RKC => RK3
16653 procedure(real(RKC)) :: getFunc
16654 type(ninf_type) , intent(in) :: lb
16655 real(RKC) , intent(in) :: ub
16656 real(RKC) , intent(in) :: abstol
16657 real(RKC) , intent(in) :: reltol
16658 type(GK15_type) , intent(in) :: qrule
16659 type(wcauchy_type) , intent(in) :: help
16660 real(RKC) , intent(out) :: integral, abserr
16661 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16662 integer(IK) , intent(out) , contiguous :: sindex(:)
16663 integer(IK) , intent(out) :: neval
16664 integer(IK) , intent(out) :: nint
16665 integer(IK) :: err
16666 end function
16667#endif
16668
16669#if RK2_ENABLED
16670 module function QAWC_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16672 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK2
16673#endif
16674 use pm_kind, only: RKC => RK2
16675 procedure(real(RKC)) :: getFunc
16676 type(ninf_type) , intent(in) :: lb
16677 real(RKC) , intent(in) :: ub
16678 real(RKC) , intent(in) :: abstol
16679 real(RKC) , intent(in) :: reltol
16680 type(GK15_type) , intent(in) :: qrule
16681 type(wcauchy_type) , intent(in) :: help
16682 real(RKC) , intent(out) :: integral, abserr
16683 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16684 integer(IK) , intent(out) , contiguous :: sindex(:)
16685 integer(IK) , intent(out) :: neval
16686 integer(IK) , intent(out) :: nint
16687 integer(IK) :: err
16688 end function
16689#endif
16690
16691#if RK1_ENABLED
16692 module function QAWC_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16694 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK1
16695#endif
16696 use pm_kind, only: RKC => RK1
16697 procedure(real(RKC)) :: getFunc
16698 type(ninf_type) , intent(in) :: lb
16699 real(RKC) , intent(in) :: ub
16700 real(RKC) , intent(in) :: abstol
16701 real(RKC) , intent(in) :: reltol
16702 type(GK15_type) , intent(in) :: qrule
16703 type(wcauchy_type) , intent(in) :: help
16704 real(RKC) , intent(out) :: integral, abserr
16705 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16706 integer(IK) , intent(out) , contiguous :: sindex(:)
16707 integer(IK) , intent(out) :: neval
16708 integer(IK) , intent(out) :: nint
16709 integer(IK) :: err
16710 end function
16711#endif
16712
16713 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16714
16715#if RK5_ENABLED
16716 module function QAWC_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16718 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK5
16719#endif
16720 use pm_kind, only: RKC => RK5
16721 procedure(real(RKC)) :: getFunc
16722 type(ninf_type) , intent(in) :: lb
16723 real(RKC) , intent(in) :: ub
16724 real(RKC) , intent(in) :: abstol
16725 real(RKC) , intent(in) :: reltol
16726 type(GK21_type) , intent(in) :: qrule
16727 type(wcauchy_type) , intent(in) :: help
16728 real(RKC) , intent(out) :: integral, abserr
16729 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16730 integer(IK) , intent(out) , contiguous :: sindex(:)
16731 integer(IK) , intent(out) :: neval
16732 integer(IK) , intent(out) :: nint
16733 integer(IK) :: err
16734 end function
16735#endif
16736
16737#if RK4_ENABLED
16738 module function QAWC_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16740 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK4
16741#endif
16742 use pm_kind, only: RKC => RK4
16743 procedure(real(RKC)) :: getFunc
16744 type(ninf_type) , intent(in) :: lb
16745 real(RKC) , intent(in) :: ub
16746 real(RKC) , intent(in) :: abstol
16747 real(RKC) , intent(in) :: reltol
16748 type(GK21_type) , intent(in) :: qrule
16749 type(wcauchy_type) , intent(in) :: help
16750 real(RKC) , intent(out) :: integral, abserr
16751 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16752 integer(IK) , intent(out) , contiguous :: sindex(:)
16753 integer(IK) , intent(out) :: neval
16754 integer(IK) , intent(out) :: nint
16755 integer(IK) :: err
16756 end function
16757#endif
16758
16759#if RK3_ENABLED
16760 module function QAWC_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16762 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK3
16763#endif
16764 use pm_kind, only: RKC => RK3
16765 procedure(real(RKC)) :: getFunc
16766 type(ninf_type) , intent(in) :: lb
16767 real(RKC) , intent(in) :: ub
16768 real(RKC) , intent(in) :: abstol
16769 real(RKC) , intent(in) :: reltol
16770 type(GK21_type) , intent(in) :: qrule
16771 type(wcauchy_type) , intent(in) :: help
16772 real(RKC) , intent(out) :: integral, abserr
16773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16774 integer(IK) , intent(out) , contiguous :: sindex(:)
16775 integer(IK) , intent(out) :: neval
16776 integer(IK) , intent(out) :: nint
16777 integer(IK) :: err
16778 end function
16779#endif
16780
16781#if RK2_ENABLED
16782 module function QAWC_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16784 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK2
16785#endif
16786 use pm_kind, only: RKC => RK2
16787 procedure(real(RKC)) :: getFunc
16788 type(ninf_type) , intent(in) :: lb
16789 real(RKC) , intent(in) :: ub
16790 real(RKC) , intent(in) :: abstol
16791 real(RKC) , intent(in) :: reltol
16792 type(GK21_type) , intent(in) :: qrule
16793 type(wcauchy_type) , intent(in) :: help
16794 real(RKC) , intent(out) :: integral, abserr
16795 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16796 integer(IK) , intent(out) , contiguous :: sindex(:)
16797 integer(IK) , intent(out) :: neval
16798 integer(IK) , intent(out) :: nint
16799 integer(IK) :: err
16800 end function
16801#endif
16802
16803#if RK1_ENABLED
16804 module function QAWC_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16806 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK1
16807#endif
16808 use pm_kind, only: RKC => RK1
16809 procedure(real(RKC)) :: getFunc
16810 type(ninf_type) , intent(in) :: lb
16811 real(RKC) , intent(in) :: ub
16812 real(RKC) , intent(in) :: abstol
16813 real(RKC) , intent(in) :: reltol
16814 type(GK21_type) , intent(in) :: qrule
16815 type(wcauchy_type) , intent(in) :: help
16816 real(RKC) , intent(out) :: integral, abserr
16817 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16818 integer(IK) , intent(out) , contiguous :: sindex(:)
16819 integer(IK) , intent(out) :: neval
16820 integer(IK) , intent(out) :: nint
16821 integer(IK) :: err
16822 end function
16823#endif
16824
16825 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16826
16827#if RK5_ENABLED
16828 module function QAWC_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16830 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK5
16831#endif
16832 use pm_kind, only: RKC => RK5
16833 procedure(real(RKC)) :: getFunc
16834 type(ninf_type) , intent(in) :: lb
16835 real(RKC) , intent(in) :: ub
16836 real(RKC) , intent(in) :: abstol
16837 real(RKC) , intent(in) :: reltol
16838 type(GK31_type) , intent(in) :: qrule
16839 type(wcauchy_type) , intent(in) :: help
16840 real(RKC) , intent(out) :: integral, abserr
16841 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16842 integer(IK) , intent(out) , contiguous :: sindex(:)
16843 integer(IK) , intent(out) :: neval
16844 integer(IK) , intent(out) :: nint
16845 integer(IK) :: err
16846 end function
16847#endif
16848
16849#if RK4_ENABLED
16850 module function QAWC_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16852 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK4
16853#endif
16854 use pm_kind, only: RKC => RK4
16855 procedure(real(RKC)) :: getFunc
16856 type(ninf_type) , intent(in) :: lb
16857 real(RKC) , intent(in) :: ub
16858 real(RKC) , intent(in) :: abstol
16859 real(RKC) , intent(in) :: reltol
16860 type(GK31_type) , intent(in) :: qrule
16861 type(wcauchy_type) , intent(in) :: help
16862 real(RKC) , intent(out) :: integral, abserr
16863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16864 integer(IK) , intent(out) , contiguous :: sindex(:)
16865 integer(IK) , intent(out) :: neval
16866 integer(IK) , intent(out) :: nint
16867 integer(IK) :: err
16868 end function
16869#endif
16870
16871#if RK3_ENABLED
16872 module function QAWC_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16874 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK3
16875#endif
16876 use pm_kind, only: RKC => RK3
16877 procedure(real(RKC)) :: getFunc
16878 type(ninf_type) , intent(in) :: lb
16879 real(RKC) , intent(in) :: ub
16880 real(RKC) , intent(in) :: abstol
16881 real(RKC) , intent(in) :: reltol
16882 type(GK31_type) , intent(in) :: qrule
16883 type(wcauchy_type) , intent(in) :: help
16884 real(RKC) , intent(out) :: integral, abserr
16885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16886 integer(IK) , intent(out) , contiguous :: sindex(:)
16887 integer(IK) , intent(out) :: neval
16888 integer(IK) , intent(out) :: nint
16889 integer(IK) :: err
16890 end function
16891#endif
16892
16893#if RK2_ENABLED
16894 module function QAWC_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16896 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK2
16897#endif
16898 use pm_kind, only: RKC => RK2
16899 procedure(real(RKC)) :: getFunc
16900 type(ninf_type) , intent(in) :: lb
16901 real(RKC) , intent(in) :: ub
16902 real(RKC) , intent(in) :: abstol
16903 real(RKC) , intent(in) :: reltol
16904 type(GK31_type) , intent(in) :: qrule
16905 type(wcauchy_type) , intent(in) :: help
16906 real(RKC) , intent(out) :: integral, abserr
16907 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16908 integer(IK) , intent(out) , contiguous :: sindex(:)
16909 integer(IK) , intent(out) :: neval
16910 integer(IK) , intent(out) :: nint
16911 integer(IK) :: err
16912 end function
16913#endif
16914
16915#if RK1_ENABLED
16916 module function QAWC_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16918 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK1
16919#endif
16920 use pm_kind, only: RKC => RK1
16921 procedure(real(RKC)) :: getFunc
16922 type(ninf_type) , intent(in) :: lb
16923 real(RKC) , intent(in) :: ub
16924 real(RKC) , intent(in) :: abstol
16925 real(RKC) , intent(in) :: reltol
16926 type(GK31_type) , intent(in) :: qrule
16927 type(wcauchy_type) , intent(in) :: help
16928 real(RKC) , intent(out) :: integral, abserr
16929 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16930 integer(IK) , intent(out) , contiguous :: sindex(:)
16931 integer(IK) , intent(out) :: neval
16932 integer(IK) , intent(out) :: nint
16933 integer(IK) :: err
16934 end function
16935#endif
16936
16937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16938
16939#if RK5_ENABLED
16940 module function QAWC_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16942 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK5
16943#endif
16944 use pm_kind, only: RKC => RK5
16945 procedure(real(RKC)) :: getFunc
16946 type(ninf_type) , intent(in) :: lb
16947 real(RKC) , intent(in) :: ub
16948 real(RKC) , intent(in) :: abstol
16949 real(RKC) , intent(in) :: reltol
16950 type(GK41_type) , intent(in) :: qrule
16951 type(wcauchy_type) , intent(in) :: help
16952 real(RKC) , intent(out) :: integral, abserr
16953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16954 integer(IK) , intent(out) , contiguous :: sindex(:)
16955 integer(IK) , intent(out) :: neval
16956 integer(IK) , intent(out) :: nint
16957 integer(IK) :: err
16958 end function
16959#endif
16960
16961#if RK4_ENABLED
16962 module function QAWC_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16964 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK4
16965#endif
16966 use pm_kind, only: RKC => RK4
16967 procedure(real(RKC)) :: getFunc
16968 type(ninf_type) , intent(in) :: lb
16969 real(RKC) , intent(in) :: ub
16970 real(RKC) , intent(in) :: abstol
16971 real(RKC) , intent(in) :: reltol
16972 type(GK41_type) , intent(in) :: qrule
16973 type(wcauchy_type) , intent(in) :: help
16974 real(RKC) , intent(out) :: integral, abserr
16975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16976 integer(IK) , intent(out) , contiguous :: sindex(:)
16977 integer(IK) , intent(out) :: neval
16978 integer(IK) , intent(out) :: nint
16979 integer(IK) :: err
16980 end function
16981#endif
16982
16983#if RK3_ENABLED
16984 module function QAWC_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16986 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK3
16987#endif
16988 use pm_kind, only: RKC => RK3
16989 procedure(real(RKC)) :: getFunc
16990 type(ninf_type) , intent(in) :: lb
16991 real(RKC) , intent(in) :: ub
16992 real(RKC) , intent(in) :: abstol
16993 real(RKC) , intent(in) :: reltol
16994 type(GK41_type) , intent(in) :: qrule
16995 type(wcauchy_type) , intent(in) :: help
16996 real(RKC) , intent(out) :: integral, abserr
16997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16998 integer(IK) , intent(out) , contiguous :: sindex(:)
16999 integer(IK) , intent(out) :: neval
17000 integer(IK) , intent(out) :: nint
17001 integer(IK) :: err
17002 end function
17003#endif
17004
17005#if RK2_ENABLED
17006 module function QAWC_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17008 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK2
17009#endif
17010 use pm_kind, only: RKC => RK2
17011 procedure(real(RKC)) :: getFunc
17012 type(ninf_type) , intent(in) :: lb
17013 real(RKC) , intent(in) :: ub
17014 real(RKC) , intent(in) :: abstol
17015 real(RKC) , intent(in) :: reltol
17016 type(GK41_type) , intent(in) :: qrule
17017 type(wcauchy_type) , intent(in) :: help
17018 real(RKC) , intent(out) :: integral, abserr
17019 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17020 integer(IK) , intent(out) , contiguous :: sindex(:)
17021 integer(IK) , intent(out) :: neval
17022 integer(IK) , intent(out) :: nint
17023 integer(IK) :: err
17024 end function
17025#endif
17026
17027#if RK1_ENABLED
17028 module function QAWC_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17030 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK1
17031#endif
17032 use pm_kind, only: RKC => RK1
17033 procedure(real(RKC)) :: getFunc
17034 type(ninf_type) , intent(in) :: lb
17035 real(RKC) , intent(in) :: ub
17036 real(RKC) , intent(in) :: abstol
17037 real(RKC) , intent(in) :: reltol
17038 type(GK41_type) , intent(in) :: qrule
17039 type(wcauchy_type) , intent(in) :: help
17040 real(RKC) , intent(out) :: integral, abserr
17041 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17042 integer(IK) , intent(out) , contiguous :: sindex(:)
17043 integer(IK) , intent(out) :: neval
17044 integer(IK) , intent(out) :: nint
17045 integer(IK) :: err
17046 end function
17047#endif
17048
17049 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17050
17051#if RK5_ENABLED
17052 module function QAWC_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17054 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK5
17055#endif
17056 use pm_kind, only: RKC => RK5
17057 procedure(real(RKC)) :: getFunc
17058 type(ninf_type) , intent(in) :: lb
17059 real(RKC) , intent(in) :: ub
17060 real(RKC) , intent(in) :: abstol
17061 real(RKC) , intent(in) :: reltol
17062 type(GK51_type) , intent(in) :: qrule
17063 type(wcauchy_type) , intent(in) :: help
17064 real(RKC) , intent(out) :: integral, abserr
17065 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17066 integer(IK) , intent(out) , contiguous :: sindex(:)
17067 integer(IK) , intent(out) :: neval
17068 integer(IK) , intent(out) :: nint
17069 integer(IK) :: err
17070 end function
17071#endif
17072
17073#if RK4_ENABLED
17074 module function QAWC_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17076 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK4
17077#endif
17078 use pm_kind, only: RKC => RK4
17079 procedure(real(RKC)) :: getFunc
17080 type(ninf_type) , intent(in) :: lb
17081 real(RKC) , intent(in) :: ub
17082 real(RKC) , intent(in) :: abstol
17083 real(RKC) , intent(in) :: reltol
17084 type(GK51_type) , intent(in) :: qrule
17085 type(wcauchy_type) , intent(in) :: help
17086 real(RKC) , intent(out) :: integral, abserr
17087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17088 integer(IK) , intent(out) , contiguous :: sindex(:)
17089 integer(IK) , intent(out) :: neval
17090 integer(IK) , intent(out) :: nint
17091 integer(IK) :: err
17092 end function
17093#endif
17094
17095#if RK3_ENABLED
17096 module function QAWC_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17098 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK3
17099#endif
17100 use pm_kind, only: RKC => RK3
17101 procedure(real(RKC)) :: getFunc
17102 type(ninf_type) , intent(in) :: lb
17103 real(RKC) , intent(in) :: ub
17104 real(RKC) , intent(in) :: abstol
17105 real(RKC) , intent(in) :: reltol
17106 type(GK51_type) , intent(in) :: qrule
17107 type(wcauchy_type) , intent(in) :: help
17108 real(RKC) , intent(out) :: integral, abserr
17109 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17110 integer(IK) , intent(out) , contiguous :: sindex(:)
17111 integer(IK) , intent(out) :: neval
17112 integer(IK) , intent(out) :: nint
17113 integer(IK) :: err
17114 end function
17115#endif
17116
17117#if RK2_ENABLED
17118 module function QAWC_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17120 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK2
17121#endif
17122 use pm_kind, only: RKC => RK2
17123 procedure(real(RKC)) :: getFunc
17124 type(ninf_type) , intent(in) :: lb
17125 real(RKC) , intent(in) :: ub
17126 real(RKC) , intent(in) :: abstol
17127 real(RKC) , intent(in) :: reltol
17128 type(GK51_type) , intent(in) :: qrule
17129 type(wcauchy_type) , intent(in) :: help
17130 real(RKC) , intent(out) :: integral, abserr
17131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17132 integer(IK) , intent(out) , contiguous :: sindex(:)
17133 integer(IK) , intent(out) :: neval
17134 integer(IK) , intent(out) :: nint
17135 integer(IK) :: err
17136 end function
17137#endif
17138
17139#if RK1_ENABLED
17140 module function QAWC_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17142 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK1
17143#endif
17144 use pm_kind, only: RKC => RK1
17145 procedure(real(RKC)) :: getFunc
17146 type(ninf_type) , intent(in) :: lb
17147 real(RKC) , intent(in) :: ub
17148 real(RKC) , intent(in) :: abstol
17149 real(RKC) , intent(in) :: reltol
17150 type(GK51_type) , intent(in) :: qrule
17151 type(wcauchy_type) , intent(in) :: help
17152 real(RKC) , intent(out) :: integral, abserr
17153 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17154 integer(IK) , intent(out) , contiguous :: sindex(:)
17155 integer(IK) , intent(out) :: neval
17156 integer(IK) , intent(out) :: nint
17157 integer(IK) :: err
17158 end function
17159#endif
17160
17161 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17162
17163#if RK5_ENABLED
17164 module function QAWC_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17166 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK5
17167#endif
17168 use pm_kind, only: RKC => RK5
17169 procedure(real(RKC)) :: getFunc
17170 type(ninf_type) , intent(in) :: lb
17171 real(RKC) , intent(in) :: ub
17172 real(RKC) , intent(in) :: abstol
17173 real(RKC) , intent(in) :: reltol
17174 type(GK61_type) , intent(in) :: qrule
17175 type(wcauchy_type) , intent(in) :: help
17176 real(RKC) , intent(out) :: integral, abserr
17177 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17178 integer(IK) , intent(out) , contiguous :: sindex(:)
17179 integer(IK) , intent(out) :: neval
17180 integer(IK) , intent(out) :: nint
17181 integer(IK) :: err
17182 end function
17183#endif
17184
17185#if RK4_ENABLED
17186 module function QAWC_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17188 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK4
17189#endif
17190 use pm_kind, only: RKC => RK4
17191 procedure(real(RKC)) :: getFunc
17192 type(ninf_type) , intent(in) :: lb
17193 real(RKC) , intent(in) :: ub
17194 real(RKC) , intent(in) :: abstol
17195 real(RKC) , intent(in) :: reltol
17196 type(GK61_type) , intent(in) :: qrule
17197 type(wcauchy_type) , intent(in) :: help
17198 real(RKC) , intent(out) :: integral, abserr
17199 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17200 integer(IK) , intent(out) , contiguous :: sindex(:)
17201 integer(IK) , intent(out) :: neval
17202 integer(IK) , intent(out) :: nint
17203 integer(IK) :: err
17204 end function
17205#endif
17206
17207#if RK3_ENABLED
17208 module function QAWC_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17210 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK3
17211#endif
17212 use pm_kind, only: RKC => RK3
17213 procedure(real(RKC)) :: getFunc
17214 type(ninf_type) , intent(in) :: lb
17215 real(RKC) , intent(in) :: ub
17216 real(RKC) , intent(in) :: abstol
17217 real(RKC) , intent(in) :: reltol
17218 type(GK61_type) , intent(in) :: qrule
17219 type(wcauchy_type) , intent(in) :: help
17220 real(RKC) , intent(out) :: integral, abserr
17221 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17222 integer(IK) , intent(out) , contiguous :: sindex(:)
17223 integer(IK) , intent(out) :: neval
17224 integer(IK) , intent(out) :: nint
17225 integer(IK) :: err
17226 end function
17227#endif
17228
17229#if RK2_ENABLED
17230 module function QAWC_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17232 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK2
17233#endif
17234 use pm_kind, only: RKC => RK2
17235 procedure(real(RKC)) :: getFunc
17236 type(ninf_type) , intent(in) :: lb
17237 real(RKC) , intent(in) :: ub
17238 real(RKC) , intent(in) :: abstol
17239 real(RKC) , intent(in) :: reltol
17240 type(GK61_type) , intent(in) :: qrule
17241 type(wcauchy_type) , intent(in) :: help
17242 real(RKC) , intent(out) :: integral, abserr
17243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17244 integer(IK) , intent(out) , contiguous :: sindex(:)
17245 integer(IK) , intent(out) :: neval
17246 integer(IK) , intent(out) :: nint
17247 integer(IK) :: err
17248 end function
17249#endif
17250
17251#if RK1_ENABLED
17252 module function QAWC_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17254 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK1
17255#endif
17256 use pm_kind, only: RKC => RK1
17257 procedure(real(RKC)) :: getFunc
17258 type(ninf_type) , intent(in) :: lb
17259 real(RKC) , intent(in) :: ub
17260 real(RKC) , intent(in) :: abstol
17261 real(RKC) , intent(in) :: reltol
17262 type(GK61_type) , intent(in) :: qrule
17263 type(wcauchy_type) , intent(in) :: help
17264 real(RKC) , intent(out) :: integral, abserr
17265 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17266 integer(IK) , intent(out) , contiguous :: sindex(:)
17267 integer(IK) , intent(out) :: neval
17268 integer(IK) , intent(out) :: nint
17269 integer(IK) :: err
17270 end function
17271#endif
17272
17273 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17274
17275#if RK5_ENABLED
17276 module function QAWC_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17278 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK5
17279#endif
17280 use pm_kind, only: RKC => RK5
17281 procedure(real(RKC)) :: getFunc
17282 type(ninf_type) , intent(in) :: lb
17283 real(RKC) , intent(in) :: ub
17284 real(RKC) , intent(in) :: abstol
17285 real(RKC) , intent(in) :: reltol
17286 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17287 type(wcauchy_type) , intent(in) :: help
17288 real(RKC) , intent(out) :: integral, abserr
17289 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17290 integer(IK) , intent(out) , contiguous :: sindex(:)
17291 integer(IK) , intent(out) :: neval
17292 integer(IK) , intent(out) :: nint
17293 integer(IK) :: err
17294 end function
17295#endif
17296
17297#if RK4_ENABLED
17298 module function QAWC_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17300 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK4
17301#endif
17302 use pm_kind, only: RKC => RK4
17303 procedure(real(RKC)) :: getFunc
17304 type(ninf_type) , intent(in) :: lb
17305 real(RKC) , intent(in) :: ub
17306 real(RKC) , intent(in) :: abstol
17307 real(RKC) , intent(in) :: reltol
17308 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17309 type(wcauchy_type) , intent(in) :: help
17310 real(RKC) , intent(out) :: integral, abserr
17311 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17312 integer(IK) , intent(out) , contiguous :: sindex(:)
17313 integer(IK) , intent(out) :: neval
17314 integer(IK) , intent(out) :: nint
17315 integer(IK) :: err
17316 end function
17317#endif
17318
17319#if RK3_ENABLED
17320 module function QAWC_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17322 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK3
17323#endif
17324 use pm_kind, only: RKC => RK3
17325 procedure(real(RKC)) :: getFunc
17326 type(ninf_type) , intent(in) :: lb
17327 real(RKC) , intent(in) :: ub
17328 real(RKC) , intent(in) :: abstol
17329 real(RKC) , intent(in) :: reltol
17330 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17331 type(wcauchy_type) , intent(in) :: help
17332 real(RKC) , intent(out) :: integral, abserr
17333 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17334 integer(IK) , intent(out) , contiguous :: sindex(:)
17335 integer(IK) , intent(out) :: neval
17336 integer(IK) , intent(out) :: nint
17337 integer(IK) :: err
17338 end function
17339#endif
17340
17341#if RK2_ENABLED
17342 module function QAWC_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17344 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK2
17345#endif
17346 use pm_kind, only: RKC => RK2
17347 procedure(real(RKC)) :: getFunc
17348 type(ninf_type) , intent(in) :: lb
17349 real(RKC) , intent(in) :: ub
17350 real(RKC) , intent(in) :: abstol
17351 real(RKC) , intent(in) :: reltol
17352 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17353 type(wcauchy_type) , intent(in) :: help
17354 real(RKC) , intent(out) :: integral, abserr
17355 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17356 integer(IK) , intent(out) , contiguous :: sindex(:)
17357 integer(IK) , intent(out) :: neval
17358 integer(IK) , intent(out) :: nint
17359 integer(IK) :: err
17360 end function
17361#endif
17362
17363#if RK1_ENABLED
17364 module function QAWC_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17366 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK1
17367#endif
17368 use pm_kind, only: RKC => RK1
17369 procedure(real(RKC)) :: getFunc
17370 type(ninf_type) , intent(in) :: lb
17371 real(RKC) , intent(in) :: ub
17372 real(RKC) , intent(in) :: abstol
17373 real(RKC) , intent(in) :: reltol
17374 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17375 type(wcauchy_type) , intent(in) :: help
17376 real(RKC) , intent(out) :: integral, abserr
17377 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17378 integer(IK) , intent(out) , contiguous :: sindex(:)
17379 integer(IK) , intent(out) :: neval
17380 integer(IK) , intent(out) :: nint
17381 integer(IK) :: err
17382 end function
17383#endif
17384
17385 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17386
17387 end interface
17388
17389 ! QAWC II
17390
17391 interface getQuadErr
17392
17393 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17394
17395#if RK5_ENABLED
17396 module function QAWC_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17398 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK5
17399#endif
17400 use pm_kind, only: RKC => RK5
17401 procedure(real(RKC)) :: getFunc
17402 type(ninf_type) , intent(in) :: lb
17403 type(pinf_type) , intent(in) :: ub
17404 real(RKC) , intent(in) :: abstol
17405 real(RKC) , intent(in) :: reltol
17406 type(GK15_type) , intent(in) :: qrule
17407 type(wcauchy_type) , intent(in) :: help
17408 real(RKC) , intent(out) :: integral, abserr
17409 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17410 integer(IK) , intent(out) , contiguous :: sindex(:)
17411 integer(IK) , intent(out) :: neval
17412 integer(IK) , intent(out) :: nint
17413 integer(IK) :: err
17414 end function
17415#endif
17416
17417#if RK4_ENABLED
17418 module function QAWC_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17420 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK4
17421#endif
17422 use pm_kind, only: RKC => RK4
17423 procedure(real(RKC)) :: getFunc
17424 type(ninf_type) , intent(in) :: lb
17425 type(pinf_type) , intent(in) :: ub
17426 real(RKC) , intent(in) :: abstol
17427 real(RKC) , intent(in) :: reltol
17428 type(GK15_type) , intent(in) :: qrule
17429 type(wcauchy_type) , intent(in) :: help
17430 real(RKC) , intent(out) :: integral, abserr
17431 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17432 integer(IK) , intent(out) , contiguous :: sindex(:)
17433 integer(IK) , intent(out) :: neval
17434 integer(IK) , intent(out) :: nint
17435 integer(IK) :: err
17436 end function
17437#endif
17438
17439#if RK3_ENABLED
17440 module function QAWC_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17442 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK3
17443#endif
17444 use pm_kind, only: RKC => RK3
17445 procedure(real(RKC)) :: getFunc
17446 type(ninf_type) , intent(in) :: lb
17447 type(pinf_type) , intent(in) :: ub
17448 real(RKC) , intent(in) :: abstol
17449 real(RKC) , intent(in) :: reltol
17450 type(GK15_type) , intent(in) :: qrule
17451 type(wcauchy_type) , intent(in) :: help
17452 real(RKC) , intent(out) :: integral, abserr
17453 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17454 integer(IK) , intent(out) , contiguous :: sindex(:)
17455 integer(IK) , intent(out) :: neval
17456 integer(IK) , intent(out) :: nint
17457 integer(IK) :: err
17458 end function
17459#endif
17460
17461#if RK2_ENABLED
17462 module function QAWC_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17464 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK2
17465#endif
17466 use pm_kind, only: RKC => RK2
17467 procedure(real(RKC)) :: getFunc
17468 type(ninf_type) , intent(in) :: lb
17469 type(pinf_type) , intent(in) :: ub
17470 real(RKC) , intent(in) :: abstol
17471 real(RKC) , intent(in) :: reltol
17472 type(GK15_type) , intent(in) :: qrule
17473 type(wcauchy_type) , intent(in) :: help
17474 real(RKC) , intent(out) :: integral, abserr
17475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17476 integer(IK) , intent(out) , contiguous :: sindex(:)
17477 integer(IK) , intent(out) :: neval
17478 integer(IK) , intent(out) :: nint
17479 integer(IK) :: err
17480 end function
17481#endif
17482
17483#if RK1_ENABLED
17484 module function QAWC_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17486 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK1
17487#endif
17488 use pm_kind, only: RKC => RK1
17489 procedure(real(RKC)) :: getFunc
17490 type(ninf_type) , intent(in) :: lb
17491 type(pinf_type) , intent(in) :: ub
17492 real(RKC) , intent(in) :: abstol
17493 real(RKC) , intent(in) :: reltol
17494 type(GK15_type) , intent(in) :: qrule
17495 type(wcauchy_type) , intent(in) :: help
17496 real(RKC) , intent(out) :: integral, abserr
17497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17498 integer(IK) , intent(out) , contiguous :: sindex(:)
17499 integer(IK) , intent(out) :: neval
17500 integer(IK) , intent(out) :: nint
17501 integer(IK) :: err
17502 end function
17503#endif
17504
17505 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17506
17507#if RK5_ENABLED
17508 module function QAWC_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17510 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK5
17511#endif
17512 use pm_kind, only: RKC => RK5
17513 procedure(real(RKC)) :: getFunc
17514 type(ninf_type) , intent(in) :: lb
17515 type(pinf_type) , intent(in) :: ub
17516 real(RKC) , intent(in) :: abstol
17517 real(RKC) , intent(in) :: reltol
17518 type(GK21_type) , intent(in) :: qrule
17519 type(wcauchy_type) , intent(in) :: help
17520 real(RKC) , intent(out) :: integral, abserr
17521 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17522 integer(IK) , intent(out) , contiguous :: sindex(:)
17523 integer(IK) , intent(out) :: neval
17524 integer(IK) , intent(out) :: nint
17525 integer(IK) :: err
17526 end function
17527#endif
17528
17529#if RK4_ENABLED
17530 module function QAWC_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17532 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK4
17533#endif
17534 use pm_kind, only: RKC => RK4
17535 procedure(real(RKC)) :: getFunc
17536 type(ninf_type) , intent(in) :: lb
17537 type(pinf_type) , intent(in) :: ub
17538 real(RKC) , intent(in) :: abstol
17539 real(RKC) , intent(in) :: reltol
17540 type(GK21_type) , intent(in) :: qrule
17541 type(wcauchy_type) , intent(in) :: help
17542 real(RKC) , intent(out) :: integral, abserr
17543 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17544 integer(IK) , intent(out) , contiguous :: sindex(:)
17545 integer(IK) , intent(out) :: neval
17546 integer(IK) , intent(out) :: nint
17547 integer(IK) :: err
17548 end function
17549#endif
17550
17551#if RK3_ENABLED
17552 module function QAWC_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17554 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK3
17555#endif
17556 use pm_kind, only: RKC => RK3
17557 procedure(real(RKC)) :: getFunc
17558 type(ninf_type) , intent(in) :: lb
17559 type(pinf_type) , intent(in) :: ub
17560 real(RKC) , intent(in) :: abstol
17561 real(RKC) , intent(in) :: reltol
17562 type(GK21_type) , intent(in) :: qrule
17563 type(wcauchy_type) , intent(in) :: help
17564 real(RKC) , intent(out) :: integral, abserr
17565 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17566 integer(IK) , intent(out) , contiguous :: sindex(:)
17567 integer(IK) , intent(out) :: neval
17568 integer(IK) , intent(out) :: nint
17569 integer(IK) :: err
17570 end function
17571#endif
17572
17573#if RK2_ENABLED
17574 module function QAWC_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17576 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK2
17577#endif
17578 use pm_kind, only: RKC => RK2
17579 procedure(real(RKC)) :: getFunc
17580 type(ninf_type) , intent(in) :: lb
17581 type(pinf_type) , intent(in) :: ub
17582 real(RKC) , intent(in) :: abstol
17583 real(RKC) , intent(in) :: reltol
17584 type(GK21_type) , intent(in) :: qrule
17585 type(wcauchy_type) , intent(in) :: help
17586 real(RKC) , intent(out) :: integral, abserr
17587 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17588 integer(IK) , intent(out) , contiguous :: sindex(:)
17589 integer(IK) , intent(out) :: neval
17590 integer(IK) , intent(out) :: nint
17591 integer(IK) :: err
17592 end function
17593#endif
17594
17595#if RK1_ENABLED
17596 module function QAWC_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17598 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK1
17599#endif
17600 use pm_kind, only: RKC => RK1
17601 procedure(real(RKC)) :: getFunc
17602 type(ninf_type) , intent(in) :: lb
17603 type(pinf_type) , intent(in) :: ub
17604 real(RKC) , intent(in) :: abstol
17605 real(RKC) , intent(in) :: reltol
17606 type(GK21_type) , intent(in) :: qrule
17607 type(wcauchy_type) , intent(in) :: help
17608 real(RKC) , intent(out) :: integral, abserr
17609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17610 integer(IK) , intent(out) , contiguous :: sindex(:)
17611 integer(IK) , intent(out) :: neval
17612 integer(IK) , intent(out) :: nint
17613 integer(IK) :: err
17614 end function
17615#endif
17616
17617 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17618
17619#if RK5_ENABLED
17620 module function QAWC_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17622 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK5
17623#endif
17624 use pm_kind, only: RKC => RK5
17625 procedure(real(RKC)) :: getFunc
17626 type(ninf_type) , intent(in) :: lb
17627 type(pinf_type) , intent(in) :: ub
17628 real(RKC) , intent(in) :: abstol
17629 real(RKC) , intent(in) :: reltol
17630 type(GK31_type) , intent(in) :: qrule
17631 type(wcauchy_type) , intent(in) :: help
17632 real(RKC) , intent(out) :: integral, abserr
17633 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17634 integer(IK) , intent(out) , contiguous :: sindex(:)
17635 integer(IK) , intent(out) :: neval
17636 integer(IK) , intent(out) :: nint
17637 integer(IK) :: err
17638 end function
17639#endif
17640
17641#if RK4_ENABLED
17642 module function QAWC_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17644 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK4
17645#endif
17646 use pm_kind, only: RKC => RK4
17647 procedure(real(RKC)) :: getFunc
17648 type(ninf_type) , intent(in) :: lb
17649 type(pinf_type) , intent(in) :: ub
17650 real(RKC) , intent(in) :: abstol
17651 real(RKC) , intent(in) :: reltol
17652 type(GK31_type) , intent(in) :: qrule
17653 type(wcauchy_type) , intent(in) :: help
17654 real(RKC) , intent(out) :: integral, abserr
17655 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17656 integer(IK) , intent(out) , contiguous :: sindex(:)
17657 integer(IK) , intent(out) :: neval
17658 integer(IK) , intent(out) :: nint
17659 integer(IK) :: err
17660 end function
17661#endif
17662
17663#if RK3_ENABLED
17664 module function QAWC_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17666 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK3
17667#endif
17668 use pm_kind, only: RKC => RK3
17669 procedure(real(RKC)) :: getFunc
17670 type(ninf_type) , intent(in) :: lb
17671 type(pinf_type) , intent(in) :: ub
17672 real(RKC) , intent(in) :: abstol
17673 real(RKC) , intent(in) :: reltol
17674 type(GK31_type) , intent(in) :: qrule
17675 type(wcauchy_type) , intent(in) :: help
17676 real(RKC) , intent(out) :: integral, abserr
17677 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17678 integer(IK) , intent(out) , contiguous :: sindex(:)
17679 integer(IK) , intent(out) :: neval
17680 integer(IK) , intent(out) :: nint
17681 integer(IK) :: err
17682 end function
17683#endif
17684
17685#if RK2_ENABLED
17686 module function QAWC_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17688 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK2
17689#endif
17690 use pm_kind, only: RKC => RK2
17691 procedure(real(RKC)) :: getFunc
17692 type(ninf_type) , intent(in) :: lb
17693 type(pinf_type) , intent(in) :: ub
17694 real(RKC) , intent(in) :: abstol
17695 real(RKC) , intent(in) :: reltol
17696 type(GK31_type) , intent(in) :: qrule
17697 type(wcauchy_type) , intent(in) :: help
17698 real(RKC) , intent(out) :: integral, abserr
17699 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17700 integer(IK) , intent(out) , contiguous :: sindex(:)
17701 integer(IK) , intent(out) :: neval
17702 integer(IK) , intent(out) :: nint
17703 integer(IK) :: err
17704 end function
17705#endif
17706
17707#if RK1_ENABLED
17708 module function QAWC_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17710 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK1
17711#endif
17712 use pm_kind, only: RKC => RK1
17713 procedure(real(RKC)) :: getFunc
17714 type(ninf_type) , intent(in) :: lb
17715 type(pinf_type) , intent(in) :: ub
17716 real(RKC) , intent(in) :: abstol
17717 real(RKC) , intent(in) :: reltol
17718 type(GK31_type) , intent(in) :: qrule
17719 type(wcauchy_type) , intent(in) :: help
17720 real(RKC) , intent(out) :: integral, abserr
17721 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17722 integer(IK) , intent(out) , contiguous :: sindex(:)
17723 integer(IK) , intent(out) :: neval
17724 integer(IK) , intent(out) :: nint
17725 integer(IK) :: err
17726 end function
17727#endif
17728
17729 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17730
17731#if RK5_ENABLED
17732 module function QAWC_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17734 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK5
17735#endif
17736 use pm_kind, only: RKC => RK5
17737 procedure(real(RKC)) :: getFunc
17738 type(ninf_type) , intent(in) :: lb
17739 type(pinf_type) , intent(in) :: ub
17740 real(RKC) , intent(in) :: abstol
17741 real(RKC) , intent(in) :: reltol
17742 type(GK41_type) , intent(in) :: qrule
17743 type(wcauchy_type) , intent(in) :: help
17744 real(RKC) , intent(out) :: integral, abserr
17745 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17746 integer(IK) , intent(out) , contiguous :: sindex(:)
17747 integer(IK) , intent(out) :: neval
17748 integer(IK) , intent(out) :: nint
17749 integer(IK) :: err
17750 end function
17751#endif
17752
17753#if RK4_ENABLED
17754 module function QAWC_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17756 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK4
17757#endif
17758 use pm_kind, only: RKC => RK4
17759 procedure(real(RKC)) :: getFunc
17760 type(ninf_type) , intent(in) :: lb
17761 type(pinf_type) , intent(in) :: ub
17762 real(RKC) , intent(in) :: abstol
17763 real(RKC) , intent(in) :: reltol
17764 type(GK41_type) , intent(in) :: qrule
17765 type(wcauchy_type) , intent(in) :: help
17766 real(RKC) , intent(out) :: integral, abserr
17767 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17768 integer(IK) , intent(out) , contiguous :: sindex(:)
17769 integer(IK) , intent(out) :: neval
17770 integer(IK) , intent(out) :: nint
17771 integer(IK) :: err
17772 end function
17773#endif
17774
17775#if RK3_ENABLED
17776 module function QAWC_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17778 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK3
17779#endif
17780 use pm_kind, only: RKC => RK3
17781 procedure(real(RKC)) :: getFunc
17782 type(ninf_type) , intent(in) :: lb
17783 type(pinf_type) , intent(in) :: ub
17784 real(RKC) , intent(in) :: abstol
17785 real(RKC) , intent(in) :: reltol
17786 type(GK41_type) , intent(in) :: qrule
17787 type(wcauchy_type) , intent(in) :: help
17788 real(RKC) , intent(out) :: integral, abserr
17789 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17790 integer(IK) , intent(out) , contiguous :: sindex(:)
17791 integer(IK) , intent(out) :: neval
17792 integer(IK) , intent(out) :: nint
17793 integer(IK) :: err
17794 end function
17795#endif
17796
17797#if RK2_ENABLED
17798 module function QAWC_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17800 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK2
17801#endif
17802 use pm_kind, only: RKC => RK2
17803 procedure(real(RKC)) :: getFunc
17804 type(ninf_type) , intent(in) :: lb
17805 type(pinf_type) , intent(in) :: ub
17806 real(RKC) , intent(in) :: abstol
17807 real(RKC) , intent(in) :: reltol
17808 type(GK41_type) , intent(in) :: qrule
17809 type(wcauchy_type) , intent(in) :: help
17810 real(RKC) , intent(out) :: integral, abserr
17811 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17812 integer(IK) , intent(out) , contiguous :: sindex(:)
17813 integer(IK) , intent(out) :: neval
17814 integer(IK) , intent(out) :: nint
17815 integer(IK) :: err
17816 end function
17817#endif
17818
17819#if RK1_ENABLED
17820 module function QAWC_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17822 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK1
17823#endif
17824 use pm_kind, only: RKC => RK1
17825 procedure(real(RKC)) :: getFunc
17826 type(ninf_type) , intent(in) :: lb
17827 type(pinf_type) , intent(in) :: ub
17828 real(RKC) , intent(in) :: abstol
17829 real(RKC) , intent(in) :: reltol
17830 type(GK41_type) , intent(in) :: qrule
17831 type(wcauchy_type) , intent(in) :: help
17832 real(RKC) , intent(out) :: integral, abserr
17833 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17834 integer(IK) , intent(out) , contiguous :: sindex(:)
17835 integer(IK) , intent(out) :: neval
17836 integer(IK) , intent(out) :: nint
17837 integer(IK) :: err
17838 end function
17839#endif
17840
17841 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17842
17843#if RK5_ENABLED
17844 module function QAWC_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17846 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK5
17847#endif
17848 use pm_kind, only: RKC => RK5
17849 procedure(real(RKC)) :: getFunc
17850 type(ninf_type) , intent(in) :: lb
17851 type(pinf_type) , intent(in) :: ub
17852 real(RKC) , intent(in) :: abstol
17853 real(RKC) , intent(in) :: reltol
17854 type(GK51_type) , intent(in) :: qrule
17855 type(wcauchy_type) , intent(in) :: help
17856 real(RKC) , intent(out) :: integral, abserr
17857 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17858 integer(IK) , intent(out) , contiguous :: sindex(:)
17859 integer(IK) , intent(out) :: neval
17860 integer(IK) , intent(out) :: nint
17861 integer(IK) :: err
17862 end function
17863#endif
17864
17865#if RK4_ENABLED
17866 module function QAWC_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17868 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK4
17869#endif
17870 use pm_kind, only: RKC => RK4
17871 procedure(real(RKC)) :: getFunc
17872 type(ninf_type) , intent(in) :: lb
17873 type(pinf_type) , intent(in) :: ub
17874 real(RKC) , intent(in) :: abstol
17875 real(RKC) , intent(in) :: reltol
17876 type(GK51_type) , intent(in) :: qrule
17877 type(wcauchy_type) , intent(in) :: help
17878 real(RKC) , intent(out) :: integral, abserr
17879 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17880 integer(IK) , intent(out) , contiguous :: sindex(:)
17881 integer(IK) , intent(out) :: neval
17882 integer(IK) , intent(out) :: nint
17883 integer(IK) :: err
17884 end function
17885#endif
17886
17887#if RK3_ENABLED
17888 module function QAWC_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17890 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK3
17891#endif
17892 use pm_kind, only: RKC => RK3
17893 procedure(real(RKC)) :: getFunc
17894 type(ninf_type) , intent(in) :: lb
17895 type(pinf_type) , intent(in) :: ub
17896 real(RKC) , intent(in) :: abstol
17897 real(RKC) , intent(in) :: reltol
17898 type(GK51_type) , intent(in) :: qrule
17899 type(wcauchy_type) , intent(in) :: help
17900 real(RKC) , intent(out) :: integral, abserr
17901 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17902 integer(IK) , intent(out) , contiguous :: sindex(:)
17903 integer(IK) , intent(out) :: neval
17904 integer(IK) , intent(out) :: nint
17905 integer(IK) :: err
17906 end function
17907#endif
17908
17909#if RK2_ENABLED
17910 module function QAWC_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17912 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK2
17913#endif
17914 use pm_kind, only: RKC => RK2
17915 procedure(real(RKC)) :: getFunc
17916 type(ninf_type) , intent(in) :: lb
17917 type(pinf_type) , intent(in) :: ub
17918 real(RKC) , intent(in) :: abstol
17919 real(RKC) , intent(in) :: reltol
17920 type(GK51_type) , intent(in) :: qrule
17921 type(wcauchy_type) , intent(in) :: help
17922 real(RKC) , intent(out) :: integral, abserr
17923 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17924 integer(IK) , intent(out) , contiguous :: sindex(:)
17925 integer(IK) , intent(out) :: neval
17926 integer(IK) , intent(out) :: nint
17927 integer(IK) :: err
17928 end function
17929#endif
17930
17931#if RK1_ENABLED
17932 module function QAWC_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17934 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK1
17935#endif
17936 use pm_kind, only: RKC => RK1
17937 procedure(real(RKC)) :: getFunc
17938 type(ninf_type) , intent(in) :: lb
17939 type(pinf_type) , intent(in) :: ub
17940 real(RKC) , intent(in) :: abstol
17941 real(RKC) , intent(in) :: reltol
17942 type(GK51_type) , intent(in) :: qrule
17943 type(wcauchy_type) , intent(in) :: help
17944 real(RKC) , intent(out) :: integral, abserr
17945 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17946 integer(IK) , intent(out) , contiguous :: sindex(:)
17947 integer(IK) , intent(out) :: neval
17948 integer(IK) , intent(out) :: nint
17949 integer(IK) :: err
17950 end function
17951#endif
17952
17953 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17954
17955#if RK5_ENABLED
17956 module function QAWC_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17958 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK5
17959#endif
17960 use pm_kind, only: RKC => RK5
17961 procedure(real(RKC)) :: getFunc
17962 type(ninf_type) , intent(in) :: lb
17963 type(pinf_type) , intent(in) :: ub
17964 real(RKC) , intent(in) :: abstol
17965 real(RKC) , intent(in) :: reltol
17966 type(GK61_type) , intent(in) :: qrule
17967 type(wcauchy_type) , intent(in) :: help
17968 real(RKC) , intent(out) :: integral, abserr
17969 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17970 integer(IK) , intent(out) , contiguous :: sindex(:)
17971 integer(IK) , intent(out) :: neval
17972 integer(IK) , intent(out) :: nint
17973 integer(IK) :: err
17974 end function
17975#endif
17976
17977#if RK4_ENABLED
17978 module function QAWC_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17980 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK4
17981#endif
17982 use pm_kind, only: RKC => RK4
17983 procedure(real(RKC)) :: getFunc
17984 type(ninf_type) , intent(in) :: lb
17985 type(pinf_type) , intent(in) :: ub
17986 real(RKC) , intent(in) :: abstol
17987 real(RKC) , intent(in) :: reltol
17988 type(GK61_type) , intent(in) :: qrule
17989 type(wcauchy_type) , intent(in) :: help
17990 real(RKC) , intent(out) :: integral, abserr
17991 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17992 integer(IK) , intent(out) , contiguous :: sindex(:)
17993 integer(IK) , intent(out) :: neval
17994 integer(IK) , intent(out) :: nint
17995 integer(IK) :: err
17996 end function
17997#endif
17998
17999#if RK3_ENABLED
18000 module function QAWC_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18002 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK3
18003#endif
18004 use pm_kind, only: RKC => RK3
18005 procedure(real(RKC)) :: getFunc
18006 type(ninf_type) , intent(in) :: lb
18007 type(pinf_type) , intent(in) :: ub
18008 real(RKC) , intent(in) :: abstol
18009 real(RKC) , intent(in) :: reltol
18010 type(GK61_type) , intent(in) :: qrule
18011 type(wcauchy_type) , intent(in) :: help
18012 real(RKC) , intent(out) :: integral, abserr
18013 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18014 integer(IK) , intent(out) , contiguous :: sindex(:)
18015 integer(IK) , intent(out) :: neval
18016 integer(IK) , intent(out) :: nint
18017 integer(IK) :: err
18018 end function
18019#endif
18020
18021#if RK2_ENABLED
18022 module function QAWC_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18024 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK2
18025#endif
18026 use pm_kind, only: RKC => RK2
18027 procedure(real(RKC)) :: getFunc
18028 type(ninf_type) , intent(in) :: lb
18029 type(pinf_type) , intent(in) :: ub
18030 real(RKC) , intent(in) :: abstol
18031 real(RKC) , intent(in) :: reltol
18032 type(GK61_type) , intent(in) :: qrule
18033 type(wcauchy_type) , intent(in) :: help
18034 real(RKC) , intent(out) :: integral, abserr
18035 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18036 integer(IK) , intent(out) , contiguous :: sindex(:)
18037 integer(IK) , intent(out) :: neval
18038 integer(IK) , intent(out) :: nint
18039 integer(IK) :: err
18040 end function
18041#endif
18042
18043#if RK1_ENABLED
18044 module function QAWC_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18046 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK1
18047#endif
18048 use pm_kind, only: RKC => RK1
18049 procedure(real(RKC)) :: getFunc
18050 type(ninf_type) , intent(in) :: lb
18051 type(pinf_type) , intent(in) :: ub
18052 real(RKC) , intent(in) :: abstol
18053 real(RKC) , intent(in) :: reltol
18054 type(GK61_type) , intent(in) :: qrule
18055 type(wcauchy_type) , intent(in) :: help
18056 real(RKC) , intent(out) :: integral, abserr
18057 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18058 integer(IK) , intent(out) , contiguous :: sindex(:)
18059 integer(IK) , intent(out) :: neval
18060 integer(IK) , intent(out) :: nint
18061 integer(IK) :: err
18062 end function
18063#endif
18064
18065 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18066
18067#if RK5_ENABLED
18068 module function QAWC_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18070 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK5
18071#endif
18072 use pm_kind, only: RKC => RK5
18073 procedure(real(RKC)) :: getFunc
18074 type(ninf_type) , intent(in) :: lb
18075 type(pinf_type) , intent(in) :: ub
18076 real(RKC) , intent(in) :: abstol
18077 real(RKC) , intent(in) :: reltol
18078 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18079 type(wcauchy_type) , intent(in) :: help
18080 real(RKC) , intent(out) :: integral, abserr
18081 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18082 integer(IK) , intent(out) , contiguous :: sindex(:)
18083 integer(IK) , intent(out) :: neval
18084 integer(IK) , intent(out) :: nint
18085 integer(IK) :: err
18086 end function
18087#endif
18088
18089#if RK4_ENABLED
18090 module function QAWC_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18092 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK4
18093#endif
18094 use pm_kind, only: RKC => RK4
18095 procedure(real(RKC)) :: getFunc
18096 type(ninf_type) , intent(in) :: lb
18097 type(pinf_type) , intent(in) :: ub
18098 real(RKC) , intent(in) :: abstol
18099 real(RKC) , intent(in) :: reltol
18100 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18101 type(wcauchy_type) , intent(in) :: help
18102 real(RKC) , intent(out) :: integral, abserr
18103 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18104 integer(IK) , intent(out) , contiguous :: sindex(:)
18105 integer(IK) , intent(out) :: neval
18106 integer(IK) , intent(out) :: nint
18107 integer(IK) :: err
18108 end function
18109#endif
18110
18111#if RK3_ENABLED
18112 module function QAWC_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18114 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK3
18115#endif
18116 use pm_kind, only: RKC => RK3
18117 procedure(real(RKC)) :: getFunc
18118 type(ninf_type) , intent(in) :: lb
18119 type(pinf_type) , intent(in) :: ub
18120 real(RKC) , intent(in) :: abstol
18121 real(RKC) , intent(in) :: reltol
18122 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18123 type(wcauchy_type) , intent(in) :: help
18124 real(RKC) , intent(out) :: integral, abserr
18125 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18126 integer(IK) , intent(out) , contiguous :: sindex(:)
18127 integer(IK) , intent(out) :: neval
18128 integer(IK) , intent(out) :: nint
18129 integer(IK) :: err
18130 end function
18131#endif
18132
18133#if RK2_ENABLED
18134 module function QAWC_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18136 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK2
18137#endif
18138 use pm_kind, only: RKC => RK2
18139 procedure(real(RKC)) :: getFunc
18140 type(ninf_type) , intent(in) :: lb
18141 type(pinf_type) , intent(in) :: ub
18142 real(RKC) , intent(in) :: abstol
18143 real(RKC) , intent(in) :: reltol
18144 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18145 type(wcauchy_type) , intent(in) :: help
18146 real(RKC) , intent(out) :: integral, abserr
18147 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18148 integer(IK) , intent(out) , contiguous :: sindex(:)
18149 integer(IK) , intent(out) :: neval
18150 integer(IK) , intent(out) :: nint
18151 integer(IK) :: err
18152 end function
18153#endif
18154
18155#if RK1_ENABLED
18156 module function QAWC_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18158 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK1
18159#endif
18160 use pm_kind, only: RKC => RK1
18161 procedure(real(RKC)) :: getFunc
18162 type(ninf_type) , intent(in) :: lb
18163 type(pinf_type) , intent(in) :: ub
18164 real(RKC) , intent(in) :: abstol
18165 real(RKC) , intent(in) :: reltol
18166 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18167 type(wcauchy_type) , intent(in) :: help
18168 real(RKC) , intent(out) :: integral, abserr
18169 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18170 integer(IK) , intent(out) , contiguous :: sindex(:)
18171 integer(IK) , intent(out) :: neval
18172 integer(IK) , intent(out) :: nint
18173 integer(IK) :: err
18174 end function
18175#endif
18176
18177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18178
18179 end interface
18180
18181!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18182
18183end module pm_quadPack
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Compute the 1D integral of the input scalar integrand getFunc on the finite or infinite interval [a,...
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Compute and return the series expansion of the input function values via the Chebyshev polynomials of...
Sort the input local error estimates list (resulting from the interval subdivision process of the Ada...
Return the Kronrod nodes and weights of the extension to the -point Gauss-Legendre quadrature,...
Return the limit of a given sequence of approximations via the Epsilon method of Wynn (1961).
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28
integer, parameter RK5
Definition: pm_kind.F90:228
integer, parameter RK4
Definition: pm_kind.F90:237
integer, parameter RK2
Definition: pm_kind.F90:255
integer, parameter RK3
Definition: pm_kind.F90:246
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
Definition: pm_kind.F90:596
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind a...
Definition: pm_kind.F90:462
integer, parameter RK1
Definition: pm_kind.F90:264
This module contains relevant mathematical constants.
character(*, SK), parameter MODULE_NAME
type(ninf_type), parameter ninf
The scalar constant object of type ninf_type that indicates the use of the negative infinity as an i...
type(pinf_type), parameter pinf
The scalar constant object of type pinf_type that indicates the use of the positive infinity as an i...
This module contains classes and procedures for non-adaptive and adaptive global numerical quadrature...
real(RKB), dimension(15), parameter weightG30
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(13), parameter nodeG25
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(21), parameter weightK41
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(16), parameter weightK31
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(21), parameter nodeK41
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter nodeG15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(15), parameter nodeG30
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter nodeK15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(11), parameter weightK21
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(31), parameter nodeK61
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(16), parameter nodeK31
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(4), parameter nodeG7
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK31_type), parameter GK31
The scalar constant object of type GK31_type that indicates the use of 15-point Gauss-Legendre quadra...
real(RKB), dimension(5), parameter weightG10
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(13), parameter weightG25
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(GK51_type), parameter GK51
The scalar constant object of type GK51_type that indicates the use of 25-point Gauss-Legendre quadra...
real(RKB), dimension(11), parameter nodeK21
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter weightK15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(4), parameter weightG7
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(weps_type), parameter weps
The scalar constant object of type weps_type that indicates the use of Epsilon extrapolation method o...
real(RKB), dimension(26), parameter weightK51
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(10), parameter weightG20
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(26), parameter nodeK51
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK61_type), parameter GK61
The scalar constant object of type GK61_type that indicates the use of 30-point Gauss-Legendre quadra...
type(GK21_type), parameter GK21
The scalar constant object of type GK21_type that indicates the use of 10-point Gauss-Legendre quadra...
real(RKB), dimension(5), parameter nodeG10
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(31), parameter weightK61
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(8), parameter weightG15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(GK15_type), parameter GK15
The scalar constant object of type GK15_type that indicates the use of 7-point Gauss-Legendre quadrat...
real(RKB), dimension(10), parameter nodeG20
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK41_type), parameter GK41
The scalar constant object of type GK41_type that indicates the use of 20-point Gauss-Legendre quadra...
This is the indicator type for generating instances of objects that indicate the use of the negative ...
This is the indicator type for generating instances of objects that indicate the use of the positive ...
This is the indicator type for generating instances of objects that indicate the use of 7-point Gauss...
This is the indicator type for generating instances of objects that indicate the use of 10-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 15-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 20-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 25-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 30-point Gaus...
This is the derived type for constructing objects that signify the computation of the Cauchy Principa...
This is the derived type for constructing objects that signify the computation of the integral an arb...
This is the indicator type for generating instances of objects that indicate the use of Epsilon extra...
This is the derived type for constructing objects that signify the computation of the integral an arb...